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The purpose of this publication is to describe the facilities provided 
by the IBM 1800 Time-Sharing Executive (TSX) System, and to 
explain the basic concepts and tecjiniques underlying their use. It 
is intended as a reference and guide for customer systems personnel 
in the implementation of the TSX system. 

i ' 

The manual is divided into four sections. The first section serves as 
an overall introduction to the TSX' system. The second and third 
sections describe the three main executive programs and discuss 
some of the important design consjiderations that bear on the use 
of standard TSX components. The final section provides selections 
of programming techniques coverijng a wide spectrum of TSX usage. 

The general approach taken is to explain each concept as it is 
encountered, and, where possible] elucidate that concept by means 
of an example. Numerous sample problems are included to acquaint 
the programmer with recommended techniques of TSX programming. 
A detailed TSX Sample System is specially provided as a tutorial 
on all aspects of TSX design, usage and implementation. 








PREFACE 



This publication describes the facilities provided by 
the IBM! 1800 Time-Sharing Executive System, and 
discusses the concepts and techniques underlying 
their use. It is intended as a reference and guide for 
customer systems personnel in the implementation of 
the TSX system. 

The manual is written in four progressive sections 
where information in one section is sometimes 
necessarily related to information in another section. 
These comprise: 



• Overview of the IBM 1800 Time-Sharing Executive 
System 

• Functions of Executive Programs 

• System Design Considerations 

• Programming Techniques 

The approach taken is to explain each concept as it 
is encountered. In some instances, a subject con- 
cept is necessarily included in a section prior to its 
definition later on in that section or a subsequent 
section., Sample problems are scattered throughout 
the text as illustrative examples designed to clarify 
concepts discussed and to familiarize the user with 
recommended techniques. They should not be con- 
strued as models. 

The first section gives a rapid survey of the TSX 
system. It defines the executive system, its modes 
of operation and system requirements; discusses 
some of the basic TSX system concepts employed; 
and describes the various components of the system, 
and their inter-relationships to the total system. 

The second section describes the three main 
executive programs (TASK, the System Director, and 
the Nonprocess Monitor) in terms of their functions 
and capabilities. Numerous examples are included 
as demonstration of sound programming practice and 
technique. Subjects discussed embrace: Program 



Scheduling, Handling of Interrupts, Use of Interval 
Timers, Use of Time-Sharing, Error Alert Control 
and Procedures, and Nonprocess Monitor Usage. 

The third section discusses some of the important 
design considerations bearing on the use of standard 
TSX system components such as the System Loader, 
IBM Nonprocess System, Temporary Assembled 
Skeleton (TASK), and the System Director. Subjects 
discussed include: Assignment of Interrupt Levels 
and Restrictions, Level Work Areas, Disk System 
Configuration, and the System Skeleton. 

The final section incorporates selections of pro- 
gramming techniques covering a wide spectrum of 
TSX uses. The purpose of this section is to aid the 
programmer, acquaint him with recommended 
techniques of TSX programming, and to help him to 
build on the fundamentals discussed in earlier sec- 
tions of this manual. A detailed TSX Sample System 
at the end of the section touches on every facet of 
TSX design, use and implementation. 

For details of TSX system generation procedures, 
System Loader assignment cards, TASK and System 
Director equate cards, and all Nonprocess Monitor 
control cards , the user is referred to IBM 1800 
Time-Sharing Executive System, Operating Pro- 
cedures, Form C26-3754. 

To derive maximum benefit from "Concepts and 
Techniques" , the user should have a working knowl- 
edge of the following TSX support publications: 

IBM 1800 Data Acquisition and Control System, 
Functional Characteristics , Form A26-5918 

IBM 1800 Assembler Language, Form C26-5882 

IBM 1130/1800 Basic FORTRAN IV Language, 
Form C26-3715 

IBM 1800 Data Acquisition and Control System , 
Data Processing Input-Output Units , Form A26-5969 

IBM 1130/1800 Plotter Subroutines , Form C26-3755 

IBM 1800 Time-Sharing Executive System 
Subroutine Library, Form C26-3723 
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This manual obsoletes and replaces the IBM 1800 Time-Sharing Executive System, Specifications, Form No. C26-5990. 
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OVERVIEW OF THE IBM 1800 TIME-SHARING EXECUTIVE SYSTEM 



INTRODUCTION 

With few exceptions, real-time applications are 
distinguished from other applications by two chief 
characteristics: 1) some process or operation going 
on outside the computer system normally has a con- 
tinuous need for on-line communication with the sys- 
tem, 2) there is a requirement for the computing 
system to keep pace with the associated process or 
operation. These characteristics of the application 
place some unique and stringent requirements on 
real-time processing systems for use in the real- 
time environment. 

Recognizing the formidable programming task 
associated with a system of this scope, IBM has 
developed the 1800 Time-Sharing Executive System 
(TSX) which relieves the user of much of the re- 
quired programming effort by freeing him to con- 
centrate on the primary task of problem solution. 
TSX is a FORTRAN- oriented disk-resident oper- 
ating system which permits the user to make opti- 
mum use of an IBM 1800 Data Acquisition and Con- 
trol System (DACS) for its primary purpose, the 
control of processes and similar complex environ- 
ments, as well as providing him with an effective 
off-line monitor system for data processing and 
scientific computation. TSX improves greatly the 
versatility of a Data Acquisition and Control Sys- 
tem (DACS) computer by making it possible for 
background jobs to be processed when the real- 
time foreground task relinquishes control of the 
processor-controller. It is through time- sharing 
that idle computer time is minimized or eliminated. 
Programs may be written in FORTRAN and/or 
symbolic Assembler language. 

Figure 1 introduces the capabilities of TSX in 
generalized form. 



MINIMUM SYSTEM REQUIREMENTS 

To assist users in performing their initial system 
generation, a standardized "starter" called System 
Generation (SYSGEN) TASK is provided with each 
installation which contains the basic elements 
necessary for system generation in a form that will 
be directly usable by a majority of users. SYSGEN 
TASK is supplied in assembled object format as 
part of the IBM Nonprocess System and consists of 
the following: 

• Nonprocess Monitor Linkages 



• Skeleton Builder Linkages 

• Absolute Loader 

It is designed to support the following minimum 
devices: 

• 1 IBM 1801 or 1802 Processor-Controller with 
a minimum of 8K words of core storage 

• 1 IBM 2310 Disk Storage Unit with one disk drive 

• 1 IBM 1442 Card Read Punch 

• 1 D3M 1816 Keyboard Printer (that is, printer 
portion only) or 

• 1 IBM 1053 Printer 

The user may employ additional I/O devices on his 
system, but he must satisfy the above machine con- 
figuration requirements to use SYSGEN TASK. For 
example, if he substitutes a 1443 Printer for a 1053 
Printer or an 1816 Keyboard Printer, a card assem- 
bly of the TASK source deck to include this provision 
becomes mandatory. As the "starter" system is a 
limited version of the Temporary Assembled Skele- 
ton (TASK), it will neither buffer 1053 Printer mes- 
sages to disk, nor does it contain the trace and dump 
utility functions. 

Machine Features Supported 

In addition to the above, the following optional ma- 
chine units and features are supported by the TSX 
system: 

• Additional core storage (up to a maximum of 
32,768 words) 

• Additional disk drives for IBM 2310 Disk Storage 
Unit — up to a maximum of three disk drives 

• Additional IBM 1442 Card Read Punch Unit 
(up to a maximum of 2) 

• Additional IBM 1816 Printer Keyboard (up to a 
maximum of 2) 

• Additional IBM 1053 Printer Units (up to a total 
of eight 1053s and 1816 s) 
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Figure 1. IBM 1800 Time-Sharing Executive System 



t Additional Data Channels (up to a total of 9) 

• Additional Interrupt Levels (up to a maximum of 
24) 

• Multiplexer Unit (Solid state and Relay) 

• Analog-Digital Converter (up to a total of 2) 

• Digital-Analog Output 

• Digital Input 



• Comparator 

• IBM 1443 Printer Unit 

• IBM 2401-2402 Magnetic Tape Units (maximum of 
2) 

• IBM 1627 Plotter Unit 

• IBM 1054 Paper Tape Reader 

• IBM 1055 Paper Tape Punch 



MODES OF OPERATION 

The IBM 1800 Time-Sharing Executive System con- 
sists essentially of two main parts: (1) a Skeleton 
Executive and (2) a Nonprocess Monitor. It is 
through the Skeleton Executive that process control 
and data acquisition applications are serviced in 
the on-line mode, while the Nonprocess Monitor 
operates either in the time-shared mode or as an 
independent programming system to provide data 
processing functions in a standard off-line mode. 
Each of these modes is brought into play by an ap- 
propriate and corresponding system generation 
procedure. The user elects the option of construc- 
ting an on-line or off-line system tailored to indi- 
vidual requirements. 



On- Line Mode 

In real-time processing, inputs arrive randomly 
from a process being monitored to the processor- 
controller. The computer rapidly responds to each 
input usually by conveying an output back to the 
process. This is in contrast with conventional batch 
processing where groups of input data are processed 
by passes through the computer. The notion of real- 
time usually implies that a processor-controller is 
responding to inputs as they occur in the physical 
world. 

TSX operates in this mode under the control of 
the Skeleton Executive. In an on-line environment, 
user-written programs may monitor and/or control 
a process operation at any time. The machine is 
also permitted to be shared by process and non- 
process work: that is, batch work may be inter- 
leaved with other work. Whenever variable core is 
not required for a process program, the Nonpro- 
cess Monitor may be brought into service. All 
core loads and/or programs executed are accessed 
from the system resident disk cartridge. 

Off- Line Mode 

The off-line TSX system operates in this mode 
under the control of the Temporary Assembled 
Skeleton (TASK) as a dedicated Nonprocess Moni- 
tor System. Typical off-line operations are assem- 
blies, compilations, disk utility functions, and the 
execution of data processing programs. 

An off-line system can be used to test problem 
programs before they are permanently stored and 
catalogued on the system cartridge, to execute 
problem programs that require the full capacity of 



available disk drives for data files, or to execute 
problem programs that are used so infrequently that 
their on-line storage is not justified. It is also used 
to build an on-line disk resident system. 



SYSTEM CONCEPT 



ROLE OF THE SKELETON EXECUTIVE 

The Skeleton Executive constitutes the framework of 
an on-line TSX system, and must be resident in 
permanent core storage before any continuous and 
coordinated real-time processing can take place. 
Other portions of the system are brought into core 
from disk storage as they are required to perform 
specific functions. 

The Executive is extremely flexible and can be 
assembled at system generation time so that no core 
is wasted by selecting any of the numerous options 
available. The user may include frequently- called 
subroutines, fast response interrupt servicing rou- 
tines, and other user- written programs in the skele- 
ton to make the most effective use of his control 
system . 

A typical skeleton executive might consist of the 
following parts as shown in Figure 2. The function 
of each individual component will now be described. 

Skeleton I/O. This is a set of input-output subrou- 
tines which provides a rapid and easy method for the 
user to reference the various data processing input- 
output devices (e. g. , card read punch, disk, 
printer) for input or output of data. It includes: 

• DISKN (Disk Storage Subroutine - performs all 
reading from and writing to the IBM 2310 Disk 
Storage Unit) 

• TYPEN/WRTYN (Printer-Keyboard Subroutine - 
transfers data to and from the IBM 1053 and 
IBM 1816 Printer-Keyboard) 



• PRNTN (Printer Subroutine - handles all print 
and carriage control functions relative to the 
IBM 1443 Printer 



These and other basic system routines make up the 
Skeleton I/O package which corresponds to an iden- 
tical set of input- output subroutines used by TASK. 
A description of each subroutine will be found else- 
where in the TSX Systems Reference Library. 
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Figure 2. A TSX On-Line System — Illustrating the 
Skeleton Executive 



INSKEL COMMON. A uniquely labelled common 
area in the skeleton set aside for communications 
among the various types of core loads used in the 
system. It can be referenced by any process or 
nonprocess program under the on-line system. 

System Director. This is the nucleus of the Skele- 
ton Executive and controls all facets of process 
monitoring. It directs the handling of interrupts 
in a priority fashion determined by the user; super- 
vises the execution of any number of mainline core 
loads or programs dictated by the process; ser- 
vices all error conditions with a minimum of dis- 
turbance to most processes under control; main- 
tains the 1800 interval timers; and makes the sys- 
tem available to the Nonprocess Monitor. 

User- Written Programs. The user has the option 
to include as many programs and subroutines as 



possible in the skeleton for reasons of frequent 
usage, rapid response, and optimum utilization of 
disk space. These may take the form of: 

• Interrupt subroutines 

• Timer subroutines 

• Count subroutines 

• Special trace and error subroutines 

• IBM- supplied arithmetic, I/O, and other 
subroutines 

• Any other user- written subroutines 

These are first compiled/assembled in relocatable 
format and stored on disk; at skeleton build time, 
they are relocated into the Skeleton Executive. 

TIME-SHARING 

In many industrial installations, the real-time con- 
trol system will not utilize all the computer time; 
therefore, time will be available to perform back- 
ground jobs. Time-sharing techniques cam thus be 
employed when idle processor-controller time is 
available in a given system environment to offer the 
user the kind of service he requires. The notion 
of time- sharing also implies the sharing of computer 
resources, since not only time but primary and 
secondary storage as well as most input-output 
facilities are also shared. 

When idle time is available in the IBM 1800 TSX 
System, control can be automatically transferred to 
an independent Nonprocess Monitor System which is 
identical to any stack- job monitor system. All 
assembling, compiling, simulating, and other sys- 
tem activities can now be executed under the control 
of the Nonprocess Monitor. Performing such jobs 
time- shared has a distinct advantage in that any time 
not required for process control functions can be 
used for data processing functions. Also, since 
process control programs and strategies tend to 
change, time- sharing makes it extremely desirable 
to be able to modify these programs and strategies 
at the on-line installation without taking the computer 
off-line. It is through the time-sharing feature that 
the utilization of the 1800 system is best optimized. 



VERSATILITY IN SYSTEM CONFIGURATION 

A modern real-time operating system must be 
geared to change and diversity. The TSX system 
itself can exist in an almost unlimited variety of 
machine configurations: different installations will 
typically have different configurations as well as 
different applications. Moreover, the configura- 
tion at a given installation may frequently change. 
If we look at application and configuration of an 
operating system, we see that the operating sys- 
tem must cope with an unprecedented number of 
environments. All of this puts a premium on sys- 
tem modularity and flexibility. 

TSX gives the user the ability to define his con- 
figuration according to his exact needs: he is there- 
fore never bound to a fixed system. Furthermore, 
after having specified and generated a particular 
system, he is still free to move process and/or 
nonprocess portions of his system from one disk 
storage device to another. 

In general, the input- output capability of the IBM 
1800 Data Acquisition and Control System can be 
backed up. For example, under program control, a 
1053 Printer can have its messages automatically 
switched to a back-up 1053 Printer; disk storage 
drives can be logically switched or removed from 
the system; and any device may be removed from 
service if it continues to fail. This dual capacity 
indicates that an installation may suffer from the 
failure of one or more input-output devices, and 
remain "on the air" under the most stringent usage 
conditions. Hand-in-hand with this back-up capa- 
bility, a history of hardware device failures can be 
examined at any time for maintenance purposes. 



CONCEPT OF A CORE LOAD 

In practice, the core storage size of a data acquisi- 
tion and control system is not sufficient to contain 
(nor does it need contain) all of the instructions re- 
quired for the execution of all functions at any one 
time. Thus, the entire set of instructions must be 
broken down into smaller pieces, and these pieces 
be made available for immediate loading. To facili- 
tate rapid loading, they should be stored on disk in 
executable core image format. 

The technique of program segmentation is em- 
ployed in the TSX system where programs are 
formed into smaller units called core loads. A 
core load is, by definition, an executable program 



or portion of a program which performs some user 
function. It is not necessarily a program in its en- 
tirety because this program may well be too large 
to fit into variable core in one piece for execution. 
The core load is unique in that it is stored on disk 
in core load core image format to facilitate rapid 
loading when it is called for execution. 

Figure 3 illustrates the four types of core loads 
commonly used in TSX. A core load may contain 
other subroutines that are not associated with the 
main program - that is, subroutines not otherwise 
available in core (either included in the skeleton, or 
in the form of load-on-call subprograms). A typical 
core load may consist of a mainline or interrupt pro- 
gram, in-core interrupt subroutines, and all other 
required subroutines that are not included with the 
Skeleton Executive. 

Core loads are important in real-time systems 
for the following reasons: 

• Real-time linkages are automatically built 

• The core-load is permanently built and stored 
on disk for rapid execution 

• Core loads are called by name 

• No compiling/assembling is needed at execution 
time. 



LOCAL SUBPROGRAMS 

TSX provides a facility for loading subroutines at the 
time they are called for in the execution of a program . 
Such a subroutine is known as a LOCAL (load-on- 
call). All LOCALs called by the same mainline pro- 
gram in a core load use the same area of core stor- 
age by overlaying one another as they are called. A 
copy of each LOCAL subprogram used with a core 
load is kept on disk in core-image format together 
with that core load (see Figure 3). 

LOCALs thus allow the user to have, effectively, 
a larger program executed in core than would other- 
wise be possible if all the subroutines were loaded 
into core at the same time. There is no theoretical 
limit to the number of LOCALs which the user wishes 
to implement. This means a virtual extension of 
variable core. Other advantages of this feature are 
(a) the ability to read in subroutines, and (b) the 
breakdown of core loads to the subroutine level. 
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processing programs during their execution. A key 
control program is the System Director which is 
loaded into main storage (as part of the resident 
Skeleton Executive) and remains there indefinitely 
to ensure continuous coordinated operation of the 
system. Other parts of the system are brought into 
main storage from secondary storage as they are 
required to perform specific functions. Processing 
programs consist of language translators and ser- 
vice programs that are provided by IBM to assist 
the user, as well as problem programs that are 
user-written and incorporated as part of the TSX 
system. Both IBM and user programs have the 
same functional relationship to the control programs. 



CONTROL PROGRAMS 

There are three control programs within the TSX 
system: 



The System Director 

This control program forms the heart of the TSX 
system and resides in core storage at all times as 
part of the skeleton where all permanent areas are 
storage-protected to ensure that they are not inad- 
vertently violated or altered. 

The System Director directs the handling of proc- 
ess and data processing input-output interrupts, pro- 
vides timer control over the process, is responsible 
for the orderly transfer of control from one core load 
to the next, and handles the transfer of control be- 
tween the on-line and off-line modes. All process 
core loads are in core-image format on disk and 
are accessed at disk read speed. 

The Director is read from disk only during a cold 
start or reload (EAC) operation. Primary entry to 
the System Director results from 1) internal and ex- 
ternal hardware interrupts, 2) TSX calls from user's 
programs, and 3) errors. 



Temporary Assembled Skeleton (TASK) 
System Director 
Nonprocess Director 

Temporary Assembled Skeleton (TASK) 

TASK is a stand-alone disk oriented monitor pro- 
gram from which an on-line or off-line TSX system 
is constructed. It performs three distinct functions: 

• Supervises the generation of a disk oriented TSX 
operating system according to user specifications. 

• Supports a full monitor capability so that TSX 
can be used as a data processing monitor system. 

• Allows the user to load absolute programs into 
core for execution, or to store them on disk. 

Since real-time process control installation re- 
quirements vary from installation to installation, it 
follows that each installation must be defined or 
tailored to the specific system functional require- 
ments and input-output configuration of that installa- 
tion. The tailoring function, defined as system 
generation, is carried out by TASK which provides 
the facilities for the creation and maintenance of a 
monitor system composed of IBM and user-written 
programs. The user specifies his system through 
the medium of equate cards. 

Figure 4 illustrates TASK organization in 
simplified form. 
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Figure 4. TASK Organization 



INSKEL COMMON has already been defined. To 
assign a variable to this area, a special FORTRAN 
statement, COMMON/INSKEL/, must be used. All 
other attributes of the COMMON statement remain 
the same. This area must be used for communica- 
tions between 

• Core loads of a different type 

• Interrupt core loads 

• Combination core loads (if either is executed as 
an interrupt core load) 

• A special core load and the mainline core load 
that calls it 

• A mainline core load (which called a special 
core load) and the core load that restores it 

• A skeleton subroutine and any other subroutine 
or core load 

The normal COMMON area located at the high- 
address end of core storage can be referenced only 
by mainline or nonprocess core loads. The normal 
COMMON statement in a mainline, special, or non- 
process core load is used to refer to this area. 
This area is saved and restored when special core 
loads or time- sharing operations are initiated or 
terminated; i.e. , communication between nonproc- 
ess core loads is possible. 

The third area for COMMON is used only for in- 
terprogram communication for programs that form 
an interrupt core load or, between combination core 
loads when they are executed on the mainline level. 
The normal COMMON statement in an interrupt or 
combination core load is used to refer to this area. 
The highest addressed location of this area must 
be assigned by the user at system generation time, 
and must be an even number. This assigned loca- 
tion is the high-address boundary of the variable 
core storage area that is saved when an interrupt 
core load is loaded for execution. Thus, it is 
necessary to save only the area specified by the 
user for interrupt core loads (not the whole variable 
area). 



processed in a true priority sequence. A higher 
level interrupt subroutine will always interrupt a 
lower level interrupt subroutine, but beyond this, 
the Skeleton Executive permits interrupts to be 
"recorded" now for later processing. 

The interrupt scheme within the Skeleton Execu- 
tive also provides a great amount of flexibility and 
frees the user from most of the problems of servic- 
ing interrupts. Interrupt servicing subroutines may 
be assigned in the following ways: 

1. An interrupt subroutine which must be executed 
immediately under any condition whatsoever can 
be made a permanent part of the skeleton. That 
is, the subroutine will always be in high-speed 
core storage and will be executable in the order 
of microseconds. 

2. Those subroutines which are associated with a 
given mainline program can be assigned in such 
a way that they are always read into core stor- 
age with that mainline when it is loaded from 
disk. The response time of a mainline inter- 
rupt routine is almost the same as that of a 
skeleton interrupt routine only if the mainline 
core load containing the interrupt routine is in 
core when the interrupt occurs. 

3. For low-priority subroutines, a core overlay 
technique allows the user to call an interrupt 
core load, bring it into core storage, save 
what was in core storage, and on completion of 
the interrupt process, restore core storage to 
its original state. These multiple operations of 
sequencing, saving, and replacing of core stor- 
age is automatically handled by the Skeleton 
Executive. All that is required of the user is to 
assign the priority. It should be mentioned that 
the priority interrupt sequence can be changed, 
at will, under program control. 

The interrupt core load response time depends on 
the size of the core load and the disk layout. It is 
slower than the skeleton or mainline core load inter- 
rupts. 



SYSTEM COMPONENTS 



MULTI-LEVEL PROGRAMMING 

The interrupt structure of the 1800 system consists 
of a total of 24 hardware levels with up to 16 inter- 
rupt signals per level. These can, of course, be 



TSX components can be considered under two separ- 
ate group-headings: (1) control programs and (2) 
processing programs. 

In general, control programs govern the order in 
which processing programs are executed, and pro- 
vide services that are required in common by the 
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processing programs during their execution. A key 
control program is the System Director which is 
loaded into main storage (as part of; the resident 
Skeleton Executive) and remains there indefinitely 
to ensure continuous coordinated operation of the 
system. Other parts of the system are brought into 
main storage from secondary storage as they are 
required to perform specific functions. Processing 
programs consist of language translators and ser- 
vice programs that are provided by IBM to assist 
the user, as well as problem programs that are 
user-written and incorporated as part of the TSX 
system. Both IBM and user programs have the 
same functional relationship to the control programs. 



CONTROL PROGRAMS 



There are three control programs within the TSX 
system: 



The System Director 

This control program forms the heart of the TSX 
system and resides in core storage at all times as 
part of the skeleton where all permanent areas are 
storage-protected to ensure that they are not inad- 
vertently violated or altered. 

The System Director directs the handling of proc- 
ess and data processing input-output interrupts, pro- 
vides timer control over the process, is responsible 
for the orderly transfer of control from one core load 
to the next, and handles the transfer of control be- 
tween the on-line and off-line modes. All process 
core loads are in core-image format on disk and 
are accessed at disk read speed. 

The Director is read from disk only during a cold 
start or reload (EAC) operation. Primary entry to 
the System Director results from 1) internal and ex- 
ternal hardware interrupts, 2) TSX calls from user's 
programs, and 3) errors. 
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Temporary Assembled Skeleton (TASK) 

TASK is a stand-alone disk oriented monitor pro- 
gram from which an on-line or off-line TSX system 
is constructed. It performs three distinct functions: 

• Supervises the generation of a disk oriented TSX 
operating system according to user specifications. 

• Supports a full monitor capability so that TSX 
can be used as a data processing monitor system. 

• Allows the user to load absolute programs into 
core for execution, or to store them on disk. 

Since real-time process control installation re- 
quirements vary from installation to installation, it 
follows that each installation must be defined or 
tailored to the specific system functional require- 
ments and input-output configuration of that installa- 
tion. The tailoring function, defined as system 
generation, is carried out by TASK which provides 
the facilities for the creation and maintenance of a 
monitor system composed of IBM and user-written 
programs. The user specifies his system through 
the medium of equate cards. 

Figure 4 illustrates TASK organization in 
simplified form. 
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The Nonprocess Supervisor 

The Nonprocess Supervisor directs the execution of 
all nonprocess core loads which may be either IBM- 
supplied as part of the TSX package or user-written. 
It normally operates in the time- sharing mode under 
the control of the System Director, but it may also be 
run as a dedicated off-line monitor system under 
TASK. 

Its main function is to recognize certain system 
control cards and transfer control to the processing 
program specified. It also initializes the nonprocess 
system whenever a job control card is identified. 



PROCESSING PROGRAMS 

Processing programs consist of service programs 
and language translators broken down as follows: 

Service Programs 

Cold Start Program 

System Loader 

Core Load Builder 

Skeleton Builder 

IBM TSX Subroutine Library 

Disk Utility Program (DUP) 

Language Translators 

Assembler 
FORTRAN Compiler 
Simulator 

Service Programs 

Service programs include a group of loaders and 
builders which serve as system generation aids, as 
well as a disk utility program and a comprehensive 
IBM TSX Subroutine Library. 



Cold Start Program 

This program loads the Skeleton Executive into core, 
storage protects it, starts the real-time clock and 
calls the user's initial core load for execution. This 
operation places the System Director in control of 
the on-line system. 

System Loader 

The primary functions of the System Loader are to 
load the initial IBM TSX system onto the disk, build 
an interrupt assignment table from user-supplied 



control records, and prepare the disk layout for sys- 
tem operation. System assignment cards are used 
to inform the System Loader of interrupt level assign- 
ment of I/O devices, interval timers, and process in- 
terrupts. The loader makes entries in a directory 
called the Location Equivalence Table (LET) for each 
component part of the IBM TSX system. 



Core Load Builder 

The Core Load Builder program combines a user- 
written relocatable program together with all refer- 
enced subroutines not included in the Skeleton Execu- 
tive into an executable core load for storage in the 
Core Load Area on disk. Core loads may be of sev- 
eral types: process mainline, combination, inter- 
rupt, or nonprocess. 

All process core loads must be built and stored on 
disk prior to execution under control of an on-line 
TSX system. Input to the Core Load Builder is sup- 
plied by the user in the form of control records which 
contain the names of relocatable mainline programs, 
interrupts to be recorded, data files used, interrupt 
routines included as part of the core load, and LOCAL 
(load-on-call) subprograms. 

Using the data provided by the System Loader and 
the Skeleton Builder, as well as information from pro- 
grams and subroutines, the Core Load Builder estab- 
lishes all subroutine linkages, hardware interrupt 
servicing linkages, and the creation of certain com- 
munications areas which are integrated with instruc- 
tions to make up a core load. 



Skeleton Builder 

The Skeleton Builder program obtains its input from 
user-assigned control records, programs, subrou- 
tines, and information from the System Loader to 
construct the System Skeleton in core-image format 
which is then stored on disk. The skeleton is read 
into core for execution by a cold start operation. The 
rebuilding of the skeleton is required whenever rou- 
tines are added or deleted, or other modifications 
are made. It is the System Skeleton which constitutes 
the Skeleton Executive. 



IBM TSX Subroutine Library 

This comprises a comprehensive set of reentrant 
subroutines as well as a select set of non- reentrant 
subroutines designed to aid the user in making ef- 
ficient use of the IBM 1800 Data Acquisition and 
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Control System. The library contains the 
following: 

• Data processing and process input-output sub- 
routines 

• Conversion subroutines 

• Arithmetic and functional subroutines 

• FORTRAN input-output subroutines 

• Miscellaneous subroutines 



Data Processing and Process I/O Subroutines. Data 
processing (printers, punches, etc.) and process 
input-output (P I/O) subroutines provide a quick and 
straightforward method for the programmer to refer- 
ence the various data processing, digital and analog 
I/O devices for input or output of data. All I/O rou- 
tines may be called directly from FORTRAN: data 
processing I/O subroutines may be called indirectly 
by the use of FORTRAN I/O. 

Conversion Subroutines. The design and operation of 
the numerous input-output devices is such that many 
of them impose a unique correspondence between 
character representations in the external medium 
and the associated bit configurations within the com- 
puter. Conversion subroutines convert inputs from 
these devices into a form in which the computer can 
operate and to prepare computed results for output 
on various devices. 

Arithmetic and Functional Subroutines. The arith- 
metic and functional group of subroutines includes a 
selection of twenty-seven basic routines which are 
most frequently required because of their general 
applicability. The arithmetic library contains both 
the routines that are visible to the FORTRAN pro- 
grammer, as well as the many routines that are 
used by the FORTRAN compiler generated object 
code, which may also be used by the Assembler pro- 
grammer. 



FORTRAN I/O Subroutines. FORTRAN I/O subrou- 
tines provide a link between the FORTRAN object 
code and the I/O devices. They support both stand- 
ard and extended precision. 



Miscellaneous Subroutines. The miscellaneous group 
provides the user with the ability to perform certain 
machine operations using the FORTRAN language. 
These include real-time, selective dump, trace, and 
overlay routines. 

Real-time subroutines are operational control rou- 
tines which service the Skeleton Executive in an on- 
line environment. Examples are TIMER (specify one 
of two hardware interval timers for some periodic 
activity), LEVEL (set one of twenty- four levels for 
programmed interrupt use), and MASK (inhibit selec- 
tively one or more levels of interrupt) . 

Selective dump subroutines allow the user to print 
chosen areas of core storage during the execution of 
an object program. For example, DUMP will output 
on the list printer, in hexadecimal or decimal format, 
a certain portion of core storage; DUMPS will print 
the status of the 1800 (that is, status indicators, 
contents of registers, and work areas) . 

The user may exercise the option of writing his 
own mainline trace interrupt routine which can be 
included in a core load to process a trace interrupt. 
He might, for example, design such a routine to 
monitor a number of conditions. The subroutine 
TRPRT is available for use in tracing routines which 
print a specified number of characters on the 1053/ 
1816 Keyboard Printer or 1443 Printer. 

The TSX Subroutine Library also contains an over- 
lay routine called FLIP which serves to call LOCAL 
(load- on- call) subprograms into core storage. All 
LOCALs in a given core load are executed from the 
same core storage locations; each LOCAL group 
overlays the previous group. 

In order to permit entry from multiple programs 
and interrupt levels before completing computations 
from a previous call, the arithmetic and functional 
subroutines, and most of the I/O subroutines, are de- 
signed to be reentrant. That is, they can be entered 
from a different level of machine operation despite 
the fact that they may not have completed operation 
on a previous level. Non-reentrant versions of the 
arithmetic, functional, and conversion subroutines 
are also supplied. 



Disk Utility Program (DUP) 

The Disk Utility Program is a comprehensive group 
of generalized utility and maintenance routines de- 
signed to aid the user in the day-to-day operation of 
the TSX system. By this means, the most frequently 
required services of disk and data maintenance can be 



10 



performed with a minimum of effort. The TSX DUP 
philosophy is to provide as much assistance as pos- 
sible to the user. DUP is a component part of the 
Nonprocess Monitor. 

DUP is called into service by the Nonprocess 
Monitor Supervisor (SUP) whenever it recognizes a 
DUP monitor control card. It is also automatically 
summoned after the successful completion of an 
assembly or FORTRAN compilation. DUP functions 
can be summarized as follows: 

1. It permits the user to store, modify, and refer 
to programs and data using the compact and 
economical direct-access disk storage facilities 
of the system without regard to specific input- 
output configurations. 

2. It allows the free interchange and use of pro- 
grams and data among programmers. 

3. It provides a systematic method to identify and 
locate programs and data, and systematic 
methods to reference data after it is located. 

All of these functions can be carried out while the 
TSX system is on-line, as well as in the off-line 
mode. Examples of DUP facilities include the fol- 
lowing: 

• Change sequence of execution of core loads 

• Replace a core load with another core load 

• Create disk files 

• Replace an object program already stored on 
disk 

• Build core loads (in conjunction with the Core 
Load Builder) 

• Define the disk configuration 

• Dump data/program from one medium to another 

• Delete a program, core load, or a data file from 
the disk 

• Pack a file on the disk to eliminate unused areas, 
thus minimizing disk storage requirements 

• Modify core loads on-line 



Language Translators 

Language translators assist a programmer by 
enabling him to define a problem or an application 
in a language form that can be readily learned and 
understood. In the TSX system, the user may define 
his problem solution or application 

In a flexible easy-to-use symbolic language — 

Assembler language, and/or 

In a form of mathematical notation — FORTRAN 



Assembler 

The Assembler program is a one-for-one disk 
oriented symbolic type translator which assembles 
object programs in machine language from source 
programs written in symbolic language. It normally 
resides on disk. The assembler accepts control 
records and source programs in card form only. 
Upon a successful assembly, the object program in 
relocatable format is moved to disk where it is 
permanently stored, or, alternatively, called for 
execution. The Assembler Language is fully 
described in the publication IBM 1800 Assembler 
Language, Form C26-5882. 



FORTRAN Compiler 

The FORTRAN Compiler translates programs written 
in the FORTRAN language into executable machine 
language. The real-time TSX FORTRAN Compiler 
permits the user to make the most of the digital and 
analog I/O features using a higher level language, 
while at the same time allowing background jobs to 
be executed. Since FORTRAN is easily understood 
by technical personnel, its availability in the TSX 
system reduces significantly the programming effort 
required. For a full description of the FORTRAN 
language, see IBM 1130/1800 Basic FORTRAN IV 
Language, Form C26-3715. 

Simulator 

The Simulator is designed as a debugging aid which 
allows the user to check out or test process and/or 
nonprocess programs without disrupting normal TSX 
system operation - that is, without taking the system 
off line. It functions under the control of the Non- 
process Monitor. 
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FUNCTIONS OF EXECUTIVE PROGRAMS 



This section describes the functions of the three 
main executive programs which constitute an IBM 
1800 Time-Sharing Executive System, namely, 

Temporary Assembled Skeleton (TASK) 
System Director 
Nonprocess Monitor 

and discusses the concepts underlying their use. 
Sample programs and coding are interspersed 
throughout the text as demonstration of good pro- 
gramming practice and technique. Since the 
Temporary Assembled Skeleton (TASK) is the first 
program with which the user becomes involved in 
the creation of an on-line or off-line TSX system, it 
is discussed at the outset. 



intermediate stage in system generation towards 
placing a system on-line. In an on-line TSX system, 
TASK control ceases at cold start time when the 
System Skeleton has been loaded into core storage. 
In an off-line TSX system, TASK itself functions in 
much the same fashion as a System Skeleton with 
permanent time- sharing. 

For simplicity, TASK can be considered in two 
parts (see Figure 4): 

• Skeleton I/O 

• TASK Program Set 



Skeleton I/O 



TEMPORARY ASSEMBLED SKELETON (TASK) 



It has already been mentioned that TASK (Temporary 
Assembled Skeleton) is a builder or "tailor" card 
monitor system with strong disk capabilities from 
which an off-line or on-line TSX system is construc- 
ted. The use of TASK, therefore , constitutes the 



The Skeleton I/O is a collection of input- output and 
general supporting subroutines that the TSX system 
requires to be in core at all times. It is that por- 
tion of a user-configurated TASK which corresponds 
exactly to the Skeleton I/O on an on-line TSX sys- 
tem. 

Figure 5 illustrates this correspondence, as well 
as the core layout, at two time periods of an on- 
line and an off-line system. 
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Figure 5. Correspondence between TASK and the System Skeleton 
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The I/O routines used by TASK form the basis of 
the Skeleton I/O. These consist of the following: 

• DISKN — Disk subroutine as used by TSX Oper- 
ating System 

• TYPEN/WRTYN- Printer /Keyboard subroutine 
as used by TSX Operating System 

• PRNTN — Printer subroutine as used by TSX 
Operating System 

• CARDN - TASK only Card I/O subroutine 



A description of each of the above subroutines 
will be found in the TSX Systems Reference library. 

Since the TSX system requires that at least one 
disk be present on the 1800, DISKN must be in core 
at all times. If the user has assigned a 1053 or 1816 
to his machine, TYPEN/WRTYN must also reside 
permanently in core. Although CARDN is in core 
during TASK execution, it does not normally form a 
part of the Skeleton I/O. The user must therefore 
define whether or not CARDN is to be a component 
part of his skeleton by means of the TASK equate 
card CDINS. If it is not, CARDN automatically be- 
comes a part of the TASK Program set. It is through 
the Skeleton I/O that an off-line system obtains full 
monitor capabilities. 



TASK Program Set 

The TASK Program Set is that integral part of the 
Temporary Assembled Skeleton which functions in a 
similar manner to the System Director. It consists 
of: 



TMIC directs all I/O interrupts to their corre- 
sponding servicing routines and resets all process 
interrupts, while TEAC processes errors that have 
been found by other parts of TASK. The TASK Direc- 
tor initializes TASK and directs the execution of the 
Absolute Loader function, Load Monitor function, 
and the Skeleton Build function. 

The Absolute Loader gives the user a facility to 
load absolute assembled programs from cards to 
core for execution. It can also be used for the stor- 
ing of user- written programs or data on disk. The 
use of this function is discussed later in some detail 
(see Programming Techniques ). The Load Monitor 
function serves to initialize the TSX Nonprocess 
Monitor for execution. There are two conversion 
routines: (1) TASK HOLEB converts hollerith input 
to one or two EBCDIC characters per word output, 
while (2) TASK EBPRT converts two characters per 
word EBCDIC input to two characters per word, sys- 
tem, list, or EAC printer code. 

A complete utility package comprised of full 
trace, check/ stop trace, four utility programs, and 
a utility monitor can be included within TASK at 
assembly time. The user elects this option through 
equate cards. 

Except in the case of a skeleton builder option, a 
TASK disk load, or a cold start, TASK is loaded 
with a 4-card TASK high core loader. 

For a more complete description of TASK func- 
tions and system generation procedures, the user is 
referred to the IBM 1800 Time-Sharing Executive 
System, Operating Procedures, Form C26-3754. 

Other considerations affecting the use of TASK 
are discussed under System Design Considerations. 



THE SYSTEM DIRECTOR 



• TASK Master Interrupt Control (TMIC) 

• TASK Director 

• TASK Error Alert Control (TEAC) 

• Absolute Loader function 

• Load Monitor function 

• Skeleton Build function 

• TASK Conversion routines 

• TASK Utilities 



The System Director is the nucleus of the skeleton 
executive of a TSX system, and always resides in 
core as part of the skeleton to direct the handling 
of interrupts, to load and execute core loads, to 
expand usage of interval timers, and to process 
errors. Primary entry to the System Director 
derives from internal and external hardware inter- 
rupts, TSX calls from user's programs and errors. 
Its principal component parts comprise the follow- 
ing: 

Master Interrupt Control (MIC) . This is a reentrant 
control program which automatically directs all 
internal, I/O, external, and programmed interrupts 
to their proper interrupt servicing routines. Con- 
trol returns to MIC as long as unserviced interrupts 
exist. 



Functions of Executive Programs 13 



Program Sequence Control (PSC). The Program 
Sequence Control Program is responsible for orderly 
transfer of control from one user- specified core load 
to the next. A core load may also temporarily be 
saved on disk pending the processing of another core 
load. All PSC functions are restricted to process 
mainline core loads. 

Time-Sharing Control (TSC). This controls the 
time-sharing of variable core between process and 
nonprocess core loads by a core exchange method. 
TSC is entered selectively from the execution of a 
CALL SHARE statement or automatically by a CALL 
VIAQ statement when the queue is empty. 

Interval Timer Control (ITC). ITC services all in- 
terrupts involving three machine timers A, B, and 
C, nine programmed timers, and a programmed real 
time clock. The programmed timers and the real 
time clock are based on timer C. Timer C is reset 
by the subtraction of a fixed value; accurate timing 
is therefore kept, even when the response to the 
timer interrupt itself may be delayed. It also ser- 
vices the "no- response routine" for the 1053/1816 
printers in the Skeleton I/O. As an option, it also 
services the Operations Monitor during nonprocess 
execution. Periodic interrupts are generated from 
interval timers rather than from the real time clock. 
The programmed timers interrogate the Interrupt 
Core Load Table (ICLT), but only skeleton count 
routines are entered into. If there is no such routine, 
the condition is recorded for later servicing. 

Error Alert Control (E AC) . The EAC program re- 
sides in core at all times, and is called to process 
all error conditions whenever an error develops. 
EAC 

• optionally saves core for future reference 

• optionally branches to a user-written error sub- 
routine (which may be included with each process 
core load) for further error analysis 

• prints an error diagnostic message, and 

• executes one of four possible error recovery 
procedures 

Mainline Core Load Queue Table. This is a stack 
or pushdown list of names of mainline core loads 
(and their respective priorities) that have been 
queued (that is, put in line) for future execution. 



Although the Queue Table forms part of the System 
Director, the real-time TSX queue-calling state- 
ments (e.g. , QUEUE, UNQ, QIFON and \IAQ) are 
designed as subroutines which may be included in 
the skeleton or with the mainline at the user's 
discretion. Processing of a mainline is not sus- 
pended as a result of queueing a higher priority 
mainline. 

Level Work Areas. A level work area of 104 words 
(in the skeleton) is required for 

• each interrupt level used 

• process mainlines 

• nonprocess core loads, and 

• internal errors 

A level work area contains interrupt level instruc- 
tions, MIC linkages, and work areas. It Is used to 
allow recursive entry to those programs supplied by 
IBM. 

Each of the following System Director functions 
will now be explained in some detail: 

• Program Scheduling 

• Handling of Interrupts 

• Use of Interval Timers 

• Use of Time-Sharing 

• Use of the Operations Monitor 

• Error Alert Control 

PROGRAM SCHEDULING 

Control processes may be classified under three 
basic headings: 

Program or event sequence 
Time dependence 
Interrupt initiation 

In practice, a process may be a combination of 
all three categories, but is usually weighted more 
heavily towards one. Rarely does a process lend it- 
self to only one. 
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Figure 6 is a simplified version of a process 
based totally on program sequence. An example 
might be a crude-oil distillation unit in an oil refin- 
ery. A scan is made to see what the present status 
is, tests and calculations are made to verify the in- 
formation, optimization towards a given product mix 
is applied, required changes to process variables 
are effected, data is recorded, etc. Each event 
thus depends on the completion of previous events. 

A process based on time is illustrated by Figure 
7. This classification could be applied to a process 
involving a solitary engine test stand. For example, 
a given throttle position and resistance load are 
set up. At specified time increments, one or more 
variables are recorded, such as manifold pres- 
sure, RPM, fuel flow, fuel level, oil temperature, 
oil pressure, etc. When all the variables have been 
recorded, the throttle position and/or load resistance 
are changed and a subsequent timing cycle initiated. 
Finally, when all specified combinations of throttle 
and load resistance settings have been tested, the 
system is initialized for another engine. Each event 
in this situation depends on time. 

Note that in practice, the servicing of a process 
as depicted in Figure 7 is not necessarily sequen- 
tial in nature. Also, it is the actual time period 
that schedules the servicing of an event. The man- 



ner in which servicing takes place is not dictated 
by the type of program (e.g. , mainline, interrupt 
routine) which initiated the event. 

The third classification is illustrated by Figure 8. 
An example might be the input phase of a hospital 
information system. With no input information, the 
system switches over to the time- sharing mode or 
remains idle. When, however, a patient enters 
the hospital, certain historical information is 
punched into cards. An interrupt is then initiated 
by an operator. The interrupt recognition routine 
sets up the card read program and the patient data 
enters the system — the system then returns to 
time- sharing or to an idle condition. When, later, 
a doctor requests medication for a certain patient, 
in a specified quantity, at certain time increments 
and duration, he sets up the proper information on 
a manual entry unit and initiates an interrupt. The 
interrupt recognition routine again calls the appro- 
priate program which reads in the manual entry, 
verifies the information, enters it in the specified 
files, and once again returns the system to the 
time- sharing mode. In a similar fashion, other 
input information such as records and/or schedules 
for dietary, patient status, laboratory, surgery, 
etc. , are entered. Events thus classified are in- 
itiated by interrupts. 
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Figure 7* Illustrating Time Dependency 
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Figure 8. Interrupt Initiation 



It is obvious from the foregoing that if each ap- 
plication illustrated were expanded to its complete 
operating requirements, it would most likely con- 
sist of all three classifications to some degree. For 
example, in Figure 6, an inventory log of input and 
output material is given every hour. This is re- 



quired to update inventories, product costs, etc. 
Also, an interrupt will occur whenever a heating 
unit goes out of range. This will immediately 
initiate a program to rectify the situation. 



Multi- Level Control. A control system must be 
able to immediately recognize certain situations of 
a physical process. It must also be able to ignore 
certain functions until they occur. In practice, 
the first requirement is more critical. In either 
case, the normal sequence of events will be inter- 
rupted until some action is taken. The situation 
is further complicated if a second interrupt, more 
critical than the first, occurs during the action 
phase of the first interrupt. The servicing of the 
first interrupt must obviously be suspended while 
attention is given to the more critical interrupt. 
Such a chain of interrupts may continue through 
several iterations as shown in Figure 9. Upon 
completion of the required action of each interrupt, 
the previously interrupted action must be continued 
until the system returns to normal. From this 
brief picture of multi-level operations, we see 
that program scheduling now becomes more com- 
plex. The user must now have the capability to 
take immediate action, record the occurrence for 
later action, or arrange for action to be taken as 
soon as possible, but on a less critical level. To 
do this, the user defines what is to be recognized 
on each level and sets this up by machine configur- 
ations. Later his program sets up when action is 
to be taken and at what level. 



1st INTERRUPT 
LEVEL 



2nd INTERRUPT 
LEVEL 




3rd INTERRUPT 
LEVEL 



Figure 9* Multi -Level Processing 
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Program Scheduling Requirements 

In a control system application, the scheduling of 
programs to be executed on the normal or mainline 
level constitutes the main problem. During certain 
phases of a control system, the user will execute 
programs in a set sequence. This type of sequence 
may be set up by a program condition, an interrupt, 
or a given time period. Sequencing or chaining of 
programs may or may not be required depending on 
the user's specific application. 

A direct sequence or chain of programs is re* 
quired for two separate situations. The first situ- 
ation is a set of programs whose functions must be 
in a given order that cannot be interrupted except 
for critical conditions. The second derives from a 
program that is too large for core size available, 
so it must be segmented into several separate 
programs. These programs will now overlay each 
other, and must therefore be scheduled in a fixed 
sequence. 

As illustrated in Figure 6, special sequences of 
programs may also be required on the mainline level 
under certain special conditions. These special 
sequences are required under three conditions which 
come Under normal operation. The first requirement 
is a sequence or chain of events that is common to 
several different phases of a system. This is logic- 
ally equivalent to a subroutine which is called by 
several programs: the main difference is that a 
chain of programs is now being scheduled instead 
of a subroutine. The next requirement occurs when 
a situation is bordering a critical point, but is still 
within the limits defined by the user. In this event, 
the user may want a warning, but has no real need 
to be alarmed. The third situation is similar except 
that the user is alarmed and cannot therefore proceed 
with the present sequence of programs until certain 
conditions are met. This is a common situation in 
process control where process inputs are not ac- 
ceptable and a special scan is set up until valid 
variables are obtained. As a result, the normal 
calculation, optimization, etc. , are delayed but 
will be resumed as soon as possible. 

The requirements stated thus far are categorized 
under program sequence since they have a definite 
relationship and order. Three commands are used 
to implement sequence control: 



1. CALL CHAIN (specify the next program to be 

executed) 

2. CALL SPECL (terminate the program, save 

it on disk, and execute the next 
program) . 

3 . CALL BACK (return control to a program 

which was partially executed) . 

Multi -process control, however, presents a new 
scheduling problem. Since one control system is 
used to control two or more processes, the definite 
relationship and order of programs is normally 
applicable within each process but not between 
processes. However, each process must be able 
to schedule its own programs in such a manner 
that the control system can handle all schedules. 
Also, because each process will normally contain 
its own unique program sequences, one type of 
scheduling problem does not necessarily eliminate 
another. It should also be understood that multi- 
level processing does not always dictate unrelated 
program scheduling: all possible combinations must 
be considered by a given program scheduling situ- 
ation. The queueing technique itself will not produce 
such a system, but when combined with the priority 
technique, the system becomes flexible enough for 
any control system's requirements. Four commands 
permit this form of control: 

1. CALL QUEUE (enter a core load into a waiting 

queue) 

2. CALL UNQ (remove a core load from a 

waiting queue) 

3. CALL VIAQ (call the highest priority core 

load waiting in the queue to be 
executed next in sequence). 

4. CALL QIFON (interrogate recorded interrupts) 



Program Sequence Control (PSC) 

The center of the scheduling system is the Program 
Sequence Control (PSC) Program which is perman- 
ently resident in core in an on-line TSX system 
working under control of the System Skeleton. PSC 
is a means by which mainline core loads are loaded 
to core, and control transferred from one core load 
to another, according to user specifications. The 
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user sets up his requirements when he uses a chain 
or sequence type CALL or a queueing-type CALL 
statement. PSC performs the following functions: 

• Loads all mainline core loads 

• Saves and reloads the special core load 

• Initializes the ICL Table for each core load 

• Tests for errors in calls to load programs 

Chaining or Sequence Technique 

Chaining or sequence-type call statements permit the 
programmer to control the order in which tasks are 
performed, interrupts serviced, and off-line jobs 
allowed. This control is important since the various 
levels of control are necessarily carried out in se- 
quence and the order is critical. For example, an 
optimizing routine too large for core storage can be 
executed in segmented parts if the programmer has 
control over their sequence. Three call sequences 
are used in chaining: 1) CALL CHAIN, 2) CALL 
SPECL, and 3) CALL BACK. Note that core load 
names referenced by the CALL statement must also 
be specified in a FORTRAN EXTERNAL statement. 
A core load name cannot be the name of a component 
subprogram, of that core load. Figure 10 illustrates 
the use of these call sequences. 

Such statements may be freely embedded within 
process programs written in FORTRAN or in the 
Assembler language. Through the use of these 
commands, within programs, the programmer can 
control the frequency and order in which the various 
levels of control are performed. Even when the 
various levels are not performed on a regular basis, 
these commands allow control over the sequence. 
Of equal importance is the ease by which sequence 
is changed as the process control problem changes 
with time. 

CALL CHAIN —Normal Call 

When a given core load is called for execution, the 
user sets up the following statement: 



CALL CHAIN (NAME) 



where 



CHAIN = Entry to PSC 

and NAME = Name assigned by user to the next 
sequential core load to be executed 

This normal call transfers control to PSC, 
thereby terminating the current mainline core load 
at its last logical statement. PSC then sets up a 
disk function to read in the next mainline core 
load specified by NAME into variable core,, over- 
laying the present core load that contained the CALL 
CHAIN statement. The new core load thus destroys 
the previous core load. Once the core load is in 
core, the disk I/O routine reverts to PSC, which 
in turn passes control to the new core load. 



CALL SPECL — Special Call 

The second type of core load sequence is similar to 
the CALL CHAIN, except that the current core load 
and its associated parameters must be saved. This 
is set up as follows: 

CALL SPECL (NAME) 

where 

SPECL = Special entry to PSC 

and NAME = Name assigned by user to a 

special core load to be executed 

next 

The special call suspends execution of the current 
mainline core load and transfers control to PSC 
which saves the present variable core area and all 
required parameters, such as index registers, ac- 
cumulator, extension, return address, and status. 
This information is written to the Special Save Area 
on disk. Once the save operation is complete, the 
disk I/O routine returns control to PSC. The opera- 
tion proceeds from this point exactly as in a CALL 
CHAIN. 

Note that only one mainline core load can be 
saved. Thus, if a CALL SPECL is used in a core 
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Core Load D 



CALL CHAIN (X) 



Core Load X 



CALL BACK 



"Return to Saved 
Mainline 




Figure 10, Use of Chaining (or Sequence-type) Call Statements 



load that was referenced by another CALL SPECL, 
the mainline core load saved originally is lost. A 
core load called by a CALL SPECL may, however, 
chain to other core loads as long as these core loads 
do not contain a CALL SPECL (see Figure 10). 

CALL BACK — Return Saved Mainline 

In order to return to the saved core load, a third 
call statement becomes necessary. This is used 
only in conjunction with the special sequence function. 
It is set up as follows: 

CALL BACK 



where 
BACK 



Special entry to PSC 



CALL BACK transfers control to PSC which, in 
turn, initiates a disk read operation to load variable 
core with the information stored in the Special Save 
Area on disk as the result of a CALL SPECL. When 
the read operation is complete, the disk I/O routine 
returns control to PSC. All saved parameters are 
now restored, and the restored core load continues 
execution at the saved return address (that is, the 
statement following the CALL SPECL statement). 

It should be noted that a CALL BACK statement 
is required only if the saved core load is to be 
restored and continued. The user may well initiate 
a new core load as the result of a special core load. 
This new core load could then be referenced by a 
CALL CHAIN or a CALL SPECL. 

A core load is terminated or suspended as the 
result of any of the three calls: CALL CHAIN, 
CALL SPECL, or CALL BACK. CALL CHAIN and 
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CALL BACK are the last logical statements executed 
in a core load. However, a CALL SPECL will not 
be last logical statement of a core load if a CALL 
BACK has been executed to restore the saved core 
load, and to continue execution following the CALL 
SPECL statement. 



Queuei ng and Priority Techniques 

Queueing techniques normally use statistical methods 
to control the number of queues. The rule that 
governs the input and output order in which waiting 
requests are serviced is usually based on an ordered- 
queue discipline — that is, first-come, first-served. 
Since we are considering the use of only one queue, 
a first-come, first-served control is only valid for 
a given priority. Therefore, as several priorities 
are, in practice, required by most control system 
applications, a priority technique must be enforced. 
A priority level is one of the most common ways of 
classifying interrupt requests according to their 
urgency. Note, however, that the urgency may 
change as a function of the condition of the servicing 
system. For example, a request may be given a 
higher level as waiting-time increases. Priorities 
are assigned by the user to programs, processes, 
and functions. The queueing and priority control 
techniques employed combine to provide a flexible 
method completely acceptable for scheduling un- 
related core loads. Although the call sequences to 
be described are referred to as queueing calls, both 
queueing and priority control are implied. 



CALL QUEUE — Insert into Queue 

The first of four calls is used to place a core load 
entry in the Core Load Queue Table (see System 
Design Considerations: System Director) , and to 
continue with the execution of the present function. 
The format of the call is: 

CALL QUEUE (NAME, P, E) 

where 

QUEUE = Name of the subroutine that places 
the specified core load in the Queue 
Table. 
NAME = Name of user-assigned core load 
entry to be entered in the Queue 
Table (and in FLET). 



P = Integer expression, specifying 

queue priority of core load NAME . 
This may be 1-32767. One (1) is 
the highest priority number. 

E = Designated error procedure to be 
taken if the queue is full. In each 
case, an appropriate error message 
is printed (see Table 2: On-line 
EAC Errors and Recovery Pro- 
cedures). The parameter is user- 
assigned as follows: 

E = 0. Ignore this call, and con- 
tinue execution as if the 
core load had been queued. 

E = 1 through 32766. Replace the 
lowest priority entry cur- 
rently in the queue with the 
name and priority speci- 
fied in this call, if the 
priority of that current 
queue entry is lower (that 
is, numerically larger) 
than E. If there is no 
queue entry with a lower 
priority, execute the re- 
start core load specified 
for this core load. 
E = 32767. Execute a restart core 
load. 

In practice, E is always set to zero. The size 
of the Queue Table should be redefined by the user 
if it becomes saturated. The options listed under E 
(above) are provided by the Error Alert Control 
(EAC) program (described later). 

Figures 11 and 12 illustrate the use of these 
functions. In Figure 12, an example is given of a 
series of mainlines which, if executed serially with- 
out interruption, would not allow queue testing for 
an inordinate amount of time. In order to be able to 
check the queue in some user-specified time period 
to see if any high priority core loads need to be 
executed, a program of the priority of the current 
executing program is queued; a CALL SPECL is 
then made to a core load that exits via a CALL 
VIAQ. The VIAQ routine then checks the queue for 
the highest priority program and executes it. When 
the executed program is the core load queued by 
core load A, a CALL BACK is performed which re- 
stores the original calling core load to execution 
status. This technique is commonly employed to 
break up the execution of a long program. 
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Entry to core load A via CALL VIAQ 
when A is highest priority in queue, or 

CALL CHAIN ( A ), or CALL SPECL ( A ) 



CALL QUEUE (P, 30,1) 
CALL QUEUE (B, 20,0) 
CALL VIAQ 



CALL QUEUE (J, 10,0) 
CALL QUEUE (M,20,0) 
CALL VIAQ 





Occurrence of Process Interrupt 
causes transfer of control to the 
interrupt servicing routine. 



Interrupt Routine 



J -continued 



CALL QUEUE (N, 20,0) 



CALL VIAQ 



CALL QUEUE (X, 2,0) 
CALL I NT EX 



CALL UNQ (M,20) 
CALLUNQ (R.20) 
CALL QUEUE ( P, 10,0) 

CALL VIAQ 



At this point, the queue still contains at least 
two entries for core load P and one for core 
load N. 



Figure 11. Use of Queueing Statements 



When a CALL QUEUE statement is executed, 
control is transferred to the real-time QUEUE 
routine which tests for an entry in the Queue Table 
with the identical name and priority as that specified 
in the user calling statement. If such an entry exists, 
a further entry will not be made — a given core load 
and priority cannot, by definition, appear more than 
once in the Queue Table. However, the same core 
load with varying priorities may appear once for 
each unique priority. 

If the entry is already in the queue, control is 
passed to the next executable instruction following 
the CALL QUEUE statement. If this is not the case, 
the QUEUE routine tests for a Queue -Table -full 
condition. If the table is full, control passes to 
EAC which executes the function specified by the E 



parameter. If the Queue -Table-full condition test 
is not satisfied, the QUEUE routine will place the 
core load entry in the Queue Table, and transfer 
control to the next instruction following the CALL 
QUEUE statement. 

CALL QUEUE may be executed in a program 
that was initiated by an interrupt or a specified 
time interval, or as the result of a program de- 
cision. It should never be used as the last logical 
statement of a core load since the QUEUE routine 
returns control to the instruction immediately fol- 
lowing the CALL QUEUE. A CALL ENDTS (see 
Use of Time -Sharing) statement i s normally used 
in conjunction with CALL QUEUE for time-sharing 
systems. The main uses of CALL QUEUE can be 
summarized thus: 



Functions of Executive Programs 21 



Problem: Repeated execution of queued core loads 
during a given core lood. 

Solution: (The encircled numbers specify the sequence of operations.) 




CALL CHAIN (B) 



CALL VIAQ 



Continue execution of core loads until 
a CALL VIAQ is executed and core load 
R is highest priority in the queue. 



CALL BACK 



Note 1 : The CALL SPECL statements cause core load A to be 
saved before transferring to core load E via lines 3 
and 8. The CALL BACK statement in core load R 
causes core load A to be restored before the return 
is made via lines 6 or 11. 



Note 2: Between lines 4 and 5 all core loads of priorities 1 and 
2 will be executed; between lines 9 and 10 all core 
loads of priorities 1 through 4 will be executed. 



Figure 12. Illustrating a Method of Segmenting Mainlines Based on Scheduling Requirements 
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To queue a core load from any program 



CALL QIFON — Queue Core Load if Indicator is On 



• To queue a core load from any hardware opera- 
tional level 

• To queue a core load when the user is unaware 
what is presently in progress on any one machine 
level 

• To queue a core load when the user is unaware 
what machine levels are in progress, and 

• To queue a core load that is not related to all 
other core loads. 

This is a very flexible command since related or 
unrelated core loads can be scheduled on the basis 
of time, a program decision, an interrupt, and from 
any hardware operational level. 



CALL UNQ -- Delete from the Queue 

The reverse of queueing a core load entry is to 
remove such an entry from the Queue Table in the 
system. The statement which gives this ability is: 



The third queueing-type call is the CALL QIFON 
statement. 



CALL UNQ (NAME, P) 



where 



UNQ = Name of the subroutine that removes 
the specified mainline core load 
entry from the Queue Table 
NAME = User-assigned name of mainline 
core load entry to be removed 
P = Priority status of user-assigned 
core load NAME. This may be in 
the range 1-32767. 

Upon execution of a CALL UNQ statement, control 
is transferred to the UNQ subroutine which searches 
the Queue Table for a similar entry of the same name 
and priority. If such an entry is detected, it is re- 
moved (that is, deleted) from the Queue Table. If 
the table does not contain a matching entry, the 
Queue Table remains unchanged. In either case, 
the UNQ subroutine returns control to the instruction 
immediately following the CALL UNQ statement. 
Like CALL QUEUE, CALL UNQ may be executed at 
any time and from any level of machine operation. 
Note that no error parameter is required. 



CALL QIFON (NAME, P, L, I, E) 



where 

NAME 

P 

E 

L 
I 



= User-assigned name of a mainline 

core load 
= Priority status of each NAME , in 

the range 1-32767. 
= Error parameter, as described for 

CALL QUEUE 
= Interrupt priority level indicator 
= PISW bit position indicator or 

CALL COUNT indicators 



In TSX, a unique L and I combination parameter 
is set up for each process interrupt, program- 
settable interrupt, and program interval timer rou- 
tine. The significance of this combination (which is 
dependent on the user's machine configuration) is 
given below: 

L I Reference 

0-23 0-15 Process interrupts 

0-23 (-)n Programmed interrupts 

(see CALL LEVEL) 
(-)n 0-31 Subprogram number for 

CALL COUNT statements 
(see Interval Timers) 

Minus (-)n above refers to any minus number. 

The CALL QIFON function is required only when 
any of the above mentioned interrupts are set up to 
be recorded (for delayed servicing). In general, 
most interrupts call for immediate action, or as 
soon as their appropriate servicing program can be 
read from disk to variable core. Some interrupts, 
however, must be recognized immediately, but do 
not require action until a later time. The function 
of delaying servicing is termed "recording": the 
interrupt is then said to be "recorded". CALL 
QIFON thus provides the user with the ability to 
interrogate recorded interrupts only when he so 
desires. It is the only way a recorded interrupt 
can be serviced. Figure 13 illustrates the use of 
this function. 

The core load entries are queued only if their 
respective interrupt record indicators are on. When 
an indicator is on, the QIFON routine sets up the 
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PROCESS CORE LOAD 



QIFON ROUTINE 



QUEUE ROUTINE 



CALL QIFON (NAME l f 35 r 6 r 15 r 0) _ .„ 
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Figure 13., Use of the CALL QIFON Statement 



proper information and then executes a CALL 
QUEUE. If the Queue Table is not full, or the 
replace error option is utilized, the QUEUE rou- 
tine returns control to QIFON which proceeds 
with the interrogation of indicators until the QIFON 
call is completed. A recorded interrupt indicator 



is automatically turned off (that is, cleared) when- 
ever the QIFON routine interrogates a program 
indicator. Control is then passed to the next exe- 
cutable instruction following the CALL QIFON 
statement, or as specified for error conditions 
under E. 
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CALL QIFON may be used from any level of 
machine operation. It should never be used as the 
last logical statement of a core load. 



CALL VIAQ — Execute Highest Priority Core Load 

The fourth and last queueing statement is 

CALL VIAQ 

where 

VIAQ = Name of the subroutine that deter- 

mines the highest priority core load 
entry in the Queue Table. 

The CALL VIAQ statement, like CALL CHAIN, 
and CALL BACK, is used as the last logical state- 
ment of a core load. When executed, control is 
transferred to the VIAQ routine which interrogates 
the Queue Table. If the table is empty, the process 
is considered to be in an idle condition (that is, the 
process does not require any action at this time. ) 
Since variable core is not utilized by process core 
loads, control is passed to the Time Sharing Control 
(TSC) program for nonprocess work if there is work 
to do. The Nonprocess Monitor indicates that it has 
batch work to perform by the execution of the Console 
Interrupt button, with sense switch 7 on. When the 
operator places a job stack in the card hopper, he 
turns on sense switch 7 and depresses the Console 
Interrupt button. This informs TSC that batch work 
is to be performed. 

At the end of the job, the // END OF ALL JOBS 
card indicates no more batch work is to be performed 
until the Console Interrupt button is again depressed. 
This feature is provided to reduce the amount of 
disk activity, and to give faster response to the 
process whenever there is no nonprocess work for 
execution. 

The time-sharing operation, thus initiated, will 
continue for the duration of time specified at system 
generation time, or until it is terminated by a CALL 
ENDTS statement. Note that a CALL VIAQ is auto- 
matically performed when time-sharing terminates. 
If, therefore, an interrupt program has previously 
placed a name in the queue, the named core load 
will then be immediately executed (see also Use of 
Time-Sharing) . Figure 14 illustrates the use of this 
calling statement. 



Problem: All programs of a given priority must be 
executed before a certain core load. 

Solution: 



CALL QUEUE (A2, 2, 0) 
CALL VIAQ 



T 



A2 



Continue execution of core loads until a CALL VIAQ 
is executed and core load A2 is the highest priority in 
the queue. All core loads of priority 1 and 2 would 
be completed before entering A2. 

I 1 



CALL QUEUE (A3, 4, 0) 
CALL VIAQ 



Continue execution of all core loads of priority 1, 2, 
3, and 4 until a CALL VIAQ calls A3. 

J 




Figure 14. Use of the CALL VIAQ Statement 



In normal operations, the queue might not be 
empty, in which case the VIAQ routine obtains the 
name of the entry with the highest priority. If 
several entries have the same (highest) priority, 
the first entry of that priority will be selected. 

The VIAQ routine then sets up the proper infor- 
mation for a CALL CHAIN with the core load name 
derived from the Queue Table, and passes control 
to PSC to execute the CHAIN function exactly as if a 
CALL CHAIN had been executed. Note that a core 
load containing a CALL CHAIN statement is destroyed 
by the core load it calls; a core load containing a 
CALL VIAQ is, therefore, similarly overlaid in 
core. The CALL VIAQ and CALL CHAIN commands 
are similar except for the method of obtaining the 
name of the core load to be called. Both calls, how- 
ever, have their own useful unique functions. 



Functions of Executive Programs 25 



Example of Non- sy nchronous Periodic Scheduling 

The following example illustrates a simple technique 
frequently used in a process control environment 
whereby core loads can be executed on some periodic 
time basis. This is known as non- synchronous per- 
iodic scheduling. The test case is not intended as a 
model: it serves only to demonstrate program sched- 
uling techniques. The example is given in three easy 
steps: 

1. The Initial Core Load — This is the initial 
mainline core load named TEST which is read 
into core by a cold start operation. The core 
load first unmasks the system because cold 
start enters the initial core load in an all-level 
masked condition; it then sets a programmed 
timer to initiate a continuous cycle of opera- 
tions (by calling the count routine #0) . 

Figure 15 illustrates this core load. The use 
of CALL CHAIN to call in another core load 
(that is, ALPHA) is also shown. 

2. Mainline Core Load ALPHA — This is the 
ALPHA core load called by the initial core load. 
It is a mainline core load which prints out the 
time of day (see Figure 16) . 

Figure 16 also shows the use of CALL VIAQ 
to check the queue. If there is nothing in the 
queue, the system establishes the time- sharing 
mode (that is, the Nonprocess Monitor is 
called). 

If an // END OF ALL JOBS has just been 
executed, the VIAQ routine will wait until an 
interrupt occurs to check the queue. 

If time- sharing is in progress (that is, the 
Nonprocess Monitor is occupied), core is ex- 
changed and the Nonprocess Supervisor is read 
into core, or alternatively, the interrupted non- 
process program is brought into core. 

3. Count Routine PEROD — This is the count rou- 
tine named PEROD which is included in the Sys- 
tem Skeleton at system generation time. 

It is entered by way of the Interval Timer 
Control (ITC) program when the time period 
specified in the initial core load TEST, or from 
its own call (that is CALL COUNT (0, 1, 5), has 
elapsed. 

The function of PEROD is to end time- sharing 
and to load ALPHA into the queue, so that when 
time- sharing is ended and the queue is checked, 
ALPHA will print out the time. It also restarts 
the timer to repeat this cycle of operation (that 
is, it starts the count again). 
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HANDLING OF INTERRUPTS 

Interrupt Philosophy 

Basically, in all on-line real time control systems, 
the processor-controller behaves in very much the 
same fashion as a radar system. The real-time com- 
puter reacts to input data from a real world environ- 
ment and provides input data to correct or control 
that environment. For example, a computer system 
controlling a chemical process monitors the inputs 
from measuring devices and instrumentation on the 
operator's control panel. Later, the computer up- 
dates the control mechanisms and indicators to main- 
tain safe and efficient operation. Emergency condi- 
tions are also sensed and appropriate action initiated. 
Instrument status sensing, data computation, and re- 
action control must occur within a specified interval 
of time to prevent disruption of the process. How 
well it is able to respond generally determines the 
maximum capability of the on-line system. A sig- 
nificant component in the responsive ability of any 
real time system is the inclusion of a powerful and 
flexible multi-priority interrupt program. 



Purpose of I/O Interrupts. There are two main 
reasons for I/O interrupts: 



1. To reduce system cost by reducing control cir- 
cuitry in I/O devices 

2. To speed up job throughput, which is relatively 
slow when compared with internal processing. 

Consider a normal computer operation without 
interrupts. Since the computer is basically a sequen- 
tial machine, it functions sequentially (or serially, 
performing one job at a time). In the simple example 
below, 

INPUT1 - PROCESS1 - OUTPUT 1 - INPUT2 - 
PROCESS2 



when PROCESS1 is completed, the user must wait 
until OUTPUT1 and ESFPUT2 are accomplished be- 
fore he can begin PROCESS2. This could be extreme- 
ly time-consuming. 

Since the input device waits idly during PROCESS1 
and OUTPUT1 time, the question arises: why should 
this idle interval of time not be used to read in 
INPUT2? This could be obviated with the use of I/O 
interrupts. The I/O interrupt is based on the con- 
cept of keeping I/O devices active, thus, hopefully, 
eliminating process delay caused by these devices. 
The following sequence of events illustrates the type 
of action that might be taken: 



2. 



6. 



7. 



A mainline program initiates an I/O device 
operation. 

The program proceeds with its processing while 
the I/O device is sending (or receiving) infor- 
mation. 

When the I/O device has transferred its infor- 
mation, an interrupt signal is sent to the 
Process Controller. 
This interrupts the mainline program. 
The interruption is serviced; that is, further 
data is requested or sent. 
The mainline resumes processing at the point 
of interruption. 

The cycle repeats itself during the execution 
of the program. 
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1800 Multi-Interrupt Priority Scheme. In the IBM 
1800 Time -Sharing Executive System, the essential 
elements of the multi-interrupt priority control 
scheme consist of: 

• A hardware priority structure 

• Core store data areas for each interrupt level 

• A Master Interrupt Control Program (MIC) which 
recognizes, controls, and directs the servicing 
of interrupts 

The hardware priority structure provides for 3 
fixed and up to 24 additional interrupt levels which 
are assignable by the user to I/O, process, or 
programmed interrupts, as shown in Figure 18. 

The interrupt philosophy can be explained in the 
following way. Because of the large number and 
widely varying types of interrupt requests, it is often 



not desirable to cause a branch to a unique address 
for each condition. For the same reasons, it is not 
desirable to initiate one branch for all interrupt re- 
quests and to require the program to determine the 
individual requests requiring service. Grouping the 
numerous request lines into a number of priority 
levels (see Figure 18) accomplishes two aims: 

1. It allows all interrupt requests common to a 
specific interrupt level to have the privilege of 
interrupting immediately, if the only requests 
present are of a lower priority level. Converse- 
ly, it permits interrupt requests connected to a 
higher priority level to temporarily terminate 
the servicing on a lower level and to immediate- 
ly interrupt to the higher priority level. Service 
is returned to the initial request only after all 
higher level requests have been serviced. 
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® 24 PISW's Basic IBM 1800. 
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Figure 18, Priority Interrupt Level Structure and Assignment 
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2. Since a unique branch can be defined for each 
interrupt priority level, it is possible to com- 
bine many requests on a common priority level 
and thereby use a common interrupt subroutine 
to service many requests. 

Each interrupt request line is thus positioned 
into a table order of priority; the highest priority 
being closest to the output, while the lowest priority 
is farthest away. An interrupt request received at 
a given level automatically causes the level to shift 
from an uninterrupted to an interrupted state. If no 
higher priority level is presently being served, the 
scheme permits the request line to be activated. At 
this time, a unique address associated with this 
level is supplied to the system, which transfers 
control to a core location determined by this address, 
The mainline return address is now preserved and 
entry made to the Master Interrupt Control Program 
to direct the servicing of this interrupt. At comple- 
tion of servicing, control is returned to the point 
of departure (see Figure 9). 

In this way, every interrupt request is obeyed 
immediately, provided no priority request is 
presently in execution. The biggest advantage of 
this method of priority level control is a near- 
optimum priority response. To guarantee minimum 
response time to alarm conditions, most process 
interrupt servicing routines should be in core at 
all times. 



Characteristics of Interrupts 

Interrupts can be classified into three broad types: 

• I/O 

• External (that is, process), and 

• Programmed 

Skeleton-resident interrupts operate on a true 
priority basis from the 24 levels available. An 
interrupt is, by definition, a hardware feature — 
it is the machine hardware, not the Master Interrupt 
Control Program which determines what level the 
interrupt is on. As far as the problem programmer 
is concerned, he has no control over the time of 
occurrence of process interrupts. He has, however, 
indirect control of their time response through 
masking, recording, and the allocation of priority 



levels. In general, interrupts are distinguishable 
from one another only in the manner in which they 
are serviced (see also System D esi gn Consi derations). 



Priority Assignments. Some important considera- 
tions affecting priority assignments can be sum- 
marized thus: 

• Each of the 24 levels can interrupt the mainline 
program. 

• Level is the highest priority. 

• Higher priority levels can interrupt lower 
priority levels. Lower priority levels cannot 
interrupt higher levels. This permits fast 
access devices to interrupt slower ones. 



Hierarchy of machine operation: 



Highest 



Interrupt level 
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Lowest 



Process Mainline 
Nonprocess Mainline 



• Interrupt levels may be masked by programming 
means. Masking inhibits interrupts to the 1800. 
The user is thus allowed to inhibit or permit 
specified levels of interrupts, and to allow deter- 
mination of the status of interrupt levels — that 
is, whether they are inhibited or not — at any 
time. Through selective use of masking, data 
channels can be kept in operation for the trans- 
mission of data into and out of core storage 
while process interrupts are prevented from 
occurring. This gives an increased efficiency 
of execution of programs. 

When a request line is unmasked, the Proces- 
sor-Controller is inter ruptible. Note that 
although a level may be masked, the fact that the 
interrupt has occurred is not lost. The function 
of masking is used to delay recognition of an 
interrupt. 



Functions of Executive Programs 29 



In practice, priorities must be assigned using the 
interaction of functions with each other as a primary 
basis. See also System Design Considerations: 
System Director. 



Types of Servic ing Subroutines Used 

An interrupt servicing subroutine may be 

• An I/O device subroutine 

• An interrupt program included in the skeleton 

• An interrupt program included with a mainline 

• A mainline core load 

• An interrupt core load 

The different options are provided to permit 
flexibility in terms of both core storage and response 
time requirements. 

I/O Device Subroutines. An I/O device routine is a 
routine that performs the second level of sensing of 
a Device Status Word (DSW) or a Process Interrupt 
Status Word (PISW). The first level of sensing the 
Interrupt Level Status Word (ILSW) is carried out 
by MIC. This means that any bit on the ILSW that 
requires sensing at the second level may be executed 
by an I/O device routine. 

The majority of the I/O devices in the 1800 have 
IBM-supplied device routines (e.g. , disk, card/read 
punch). Those that require sensing by the user at the 
second level include the following: 

• RPQ devices 

• Special PISW's that the user may wish to sense 
himself (e.g. , multiple PISW groups per level) 

• Any other I/O device (e.g. , System/360 Channel 
Adaptor) 

These routines are entered with a BSC; they exit 
by an indirect branch through word (90)-, Q . 

The appropriate entry reflecting the ILSW will be 
assigned by the user on * Assignment control cards 
to the System Loader at system generation time. 



Subroutines that are entered from the I/O device 
routine comprise count, timer, and process I/O 
subroutines. They perform specific limited tasks 
associated with the event that is occurring within 
the I/O device (e.g. , elapsed time on a particular 
timer). Entry to the subroutine is made by a BSI; 
the routine exits to its return statement by a BSC I 
through the entry point. These subroutines are 
included in the skeleton by *INCLD control cards. 



Interrupt Programs included in the Skeleto n. The 
shortest response time (that is, the minimum time 
before an interrupt servicing routine is entered 
after the interrupt has been recognized) is obtained 
by placing the routine in core with the System 
Skeleton. The interrupt routine is included by 
specifying a control card (*INCLD) at skeleton 
build time. Like the interrupt core load, the in- 
core interrupt routine performs a limited task. 
It is masked only for short periods of time by the 
system during the execution of certain reentrant 
coded routines. This period of time is normally 
of the order of 20-30 instructions. 

These routines are entered with a BSI; they 
exit through a CALL INTEX statement, Some of 
the important factors governing their inclusion 
in the skeleton area are discussed in detail in 
System Design Considerations: System Skeleton. 

Interrupt Programs included with a Mainline. Next 
in length of response time to skeleton interrupt 
routines are in-core routines loaded with the core 
image mainlines. These are entered almost as 
quickly as skeleton routines provided the mainline 
is in progress when the interrupt occurs, but may 
be forced to wait if the mainline is not in core. 
This will be the case if a lower level interrupt 
routine has been read over the mainline. The 
length of delay involved would then be the balance 
of the reading of the interrupt routine and the exe- 
cution of that routine and the read-back of the main- 
line. No immediate exchange to obtain the mainline 
is done. If the interrupt that occurs has a program 
in the mainline and the interrupt is at a higher or 
equal level to the interrupt being processed, the 
interrupt core load assigned to this interrupt will 
be read directly into core upon completion of the 
interrupt core load being serviced. 

An interrupt core load is always required before 
any servicing of a process interrupt in-core with the 
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mainline can take place. If an interrupt core load 
is not available, the event will be recorded even if an 
interrupt servicing route is included with the main- 
line. The Master Interrupt Control (MIC) Program 
first ascertains if an interrupt core load is available; 
if it is, the ICL table is checked to see if the routine 
is in the mainline; if it is not available, the event 
is recorded. The interrupt routine is always ser- 
viced with the same masked status as an interrupt 
core load. 

Interrupt programs included with a mainline are 
always entered by an indirect branch (BSI); they 
exit through a CALL INTEX. 

Mainline Core Loads. External (that is, process) 
interrupts whose occurrences are recorded are 
serviced with mainline core loads. The mainline 
core load performing the servicing action is identi- 
cal to any other mainline core load, except that it 
is queued for execution by a CALL QIFON statement. 
Since it is a queued core load, it should have a CALL 
VIAQ as its last logical statement. It could, of 
course, be the first core load of a special series, 
in which case it would end with a CALL CHAIN to 
obtain the next core load in sequence, but a CALL 
VIAQ must ultimately be executed. 

Note that the only major difference between an 
interrupt core load and a mainline core load used 
for the servicing of recorded interrupts is in the 
last logical statement used. This must be a CALL 
INTEX for an interrupt core load and a CALL VIAQ 
for a mainline core load. 

If a process interrupt is immediately serviced on 
some occasions and recorded on other occasions, it 
would require two core loads (one for each function) 
which would be identical in all respects except for 
their last logical statement. To eliminate this dupli- 
cation of core loads, a special combination exit 
statement (CALL DPART) is provided (see Exit 
Procedures from Interrupt Servicing Routines) . An 
interrupt or mainline core load which terminates with 
a CALL DPART is, by definition, a combination core 
load. 

The combination core load should not violate re- 
strictions placed on either mainline or interrupt 
core loads. That is, mainline interrupt subroutines 
are not allowed as part of this core load: only state- 
ments allowed in both mainline and interrupt pro- 
grams are permitted. See also Appendix A, Sum- 
mary of TSX Statements. 



Interrupt Core Loads. The user may create inter- 
rupt core loads which are brought into core over the 
mainline when the interrupt occurs. Interrupt core 
loads are essentially disk-resident routines where 
the response time is not a problem. They are re- 
quired for those interrupts that meet either of the 
following conditions: 

1. The user has specified the interrupt servicing 
routine to be out-of-core. 

2. The user has specified the interrupt servicing 
routine to be in-core as part of a mainline 
core load. 

When this type of interrupt servicing routine is 
executed, the area of core that the routine will 
occupy is saved on disk before reading in the inter- 
rupt core load. The time for this save operation, 
in addition to the time for the disk read operation 
needed to get the interrupt core load, causes this 
method of interrupt servicing to have the longest 
response time. Once an interrupt servicing core 
load has begun, it may be interrupted by a higher 
level routine, only if the interrupt routine for this 
higher level is in the skeleton on a higher level. 

The use of interrupt core loads is normally re- 
stricted to the performance of a particular task at 
a time, or the initiation of a task on a mainline level 
which does not take an inordinate amount of time. 
A typical example is the queueing of a sequence of 
mainline core loads to accomplish the task that 
originated an interrupt. The user should remember 
that if his problem program is time-consuming, he 
will, in the normal course of events, execute this 
on the mainline level. The reason for this is that 
interrupt core loads cannot, by definition, interrupt 
other interrupt core loads. This system restriction 
is because of the disk exchange time that would be 
required. 

Interrupt core loads are built and assigned to a 
particular process interrupt bit (PISW) on pro- 
grammed interrupt level. The core load then per- 
forms the servicing task or sets in motion the task 
that will be required when this specific bit is 
activated. 

Note that this type of interrupt servicing routine 
does not contain an Interrupt Status Table (1ST). 
The reason is that the 1ST is used for updating the 
Interrupt Core Load Table (ICLT), and the ICL table 
is only updated from mainline core loads or from 
combination core loads when these are executed at 
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the mainline level. For the same reason, the 
interrupt core load cannot include other routines 
within it. Another explanation is that the programs 
that might be included in an interrupt core load are 
masked off during its execution. 

An interrupt core load is not necessarily the 
length of variable core: it has a defined length 
(see S ystem Design Considerations: Disk System 
Configuration) . Hence, in contradistinction to 
mainline core loads, all of variable core is not 
needed because of the limited function performed 
by this type of core load. To increase execution 



speed, therefore, the Interrupt Save Area can be 
made smaller. 

Note also that interrupt core loads can communi- 
cate with mainline core loads (and combination core 
loads when these are executed as interrupt core 
loads) only through INSKEL COMMON. The inter- 
rupt core load itself contains a COMMON which is 
located at the end of the Interrupt Save Area. 

Figure 19 gives a summary of the types, charac- 
teristics, and location of process interrupt servic- 
ing routines. 



Type of Routine and Location 



Characteristics 



Skeleton Interrupt Routine 
Core Storage Location 



w 

System Sk 
Skeleton^ 





Skeleton Area Variable Area 



Permanently in core. 

Normally high priority. 

Can immediately interrupt lower priority routines, and 

Interrupt Core loads if no Interrupt Core load is 

assigned to that level. 

Fastest interrupt response. 

Must CALL INTEX as last logical statement. 



Mainline Interrupt Routine 
Core Storage Location 



System 
Skeleton 





Skeleton Area Variable Area 



Available almost an quickly as Skeleton Interrupt routines, if the mainline 

is in-core. 
Once execution is started, only interruptable by Skeleton Interrupt Routine 

or internal interrupt. 
Can be different with each mainline core load. 
Interrupt core load is required. 
Must CALL INTEX as last logical statement. 



Interrupt Core Load 
Core Storage Location 



System 
Skeleton 



Skeleton Area Variable Area 



Large core area available. 

Once execution is started, only interruptable by Skeleton Interrupt Routine 

or internal interrupt. 
Mainline or nonprccess program in operation at time of interrupt is saved 

before and restored after Interrupt Core Load operation. 
CALL INTEX is last logical statement used. Cannot include interrupt 

routines for other interrupts. 



Mainline Core Load 



Core Storage Location 




Skeleton Area Variable Area 



Large core area available. 
Can include interrupt routines. 

Queued for execution if record indicator is on when named in Q1FON statement. 
If mainline core load is always queued, last logical statement should be 
CALL VI AQ. 



Combination Core Load 



Core Storage Location 



System 
Skeleton 



Skeleton Area Variable Area 



Cannot violate any rules governing interrupt and mainline core loads. 

Large core area available. 

Queued for execution if record indicator is on when named in QIFON 

statement. 
CALL DP ART is last logical statement used. 



Figure 1S>. Summary of Characteristics of Process Interrupt Servicing Routines 
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Exit Procedures from Interrupt Servicing Routines 
Three forms of exiting are used: 

• CALL INTEX 

• RETURN 

• CALLDPART 

CALL INTEX — Interrupt Exit 

All interrupt routines serviced on an interrupt level 
must return control to MIC through a 

CALL INTEX 

statement. INTEX is the symbol for INTerrupt 
EXit. CALL INTEX must be used as the last logi- 
cal Statement in skeleton interrupt routines. It 
can also be used in interrupt core loads. 



RETURN 

Subprograms called by user-written interrupt 
servicing routines must use a 

RETURN 

statement to return to the interrupt routine or may 
return control directly to MIC. 



CALL DPART ~ Departure 

CALL DPART causes the level of operation to be 
tested for the following conditions: 

• If the present level is an interrupt level, a 
CALL INTEX is executed. 

• Otherwise a CALL VIAQ is executed. 

Thus CALL DPART eliminates duplication of 
core loads. An interrupt that is sometimes directly 
serviced, and sometimes recorded, can now be 
serviced with the same core load. This core load 
operates from an interrupt level when servicing 
is specified; it is queued and operates from the 
mainline level when the interrupt is specified as 
recorded. 



Figure 20 illustrates the use of the two exit 
CALL and RETURN Statements. 



Master Interrupt Control 

Once an interrupt has been detected at the hardware 
level, a reentrant control program, the Master 
Interrupt Control (MIC) program, takes over the 
control and servicing of that interrupt. The inter- 
rupt is first recognized by the interrogation of 
certain indicators on a level. 

The MIC routine is assembled as part of the 
System Director at which time it origins out those 
tables and coding not used by the system to user 
specifications. MIC resides in core at all times 
in an on-line TSX system when the computer is 
operating under control of the System Skeleton. 
It is designed to: 

• Save the interrupted registers whenever an 
interrupt is processed on the appropriate work 
level 

• Direct the interrupt to its servicing routine 

• Restore the FORTRAN I/O buffers if required 

• Restore the interrupted registers, and 

• Return to the point of departure in the inter- 
rupted program. 

Detailed Action of MIC when an Interrupt Occurs 

Consider the train of events that follows when a 
process interrupt is generated by an event within 
a process control environment. Let us assume 
that this interrupt was originally assigned (at 
system generation time) by the user on an NB 
(System Director) equate card to level zero. 
Remember that an interrupt is, by definition, a 
hardware feature, and that the user has limited 
control over the time of occurrence of process 
interrupts, except by masking, recording, and 
the allocation of priority levels. Figures 21, 22 
and 23 illustrate this action in simplified form. 

Entry to MIC. 

1. In the 1800, an interrupt request is recognized 
at the completion of the current instruction 
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being executed within a mainline program. When 
this happens, an indirect branch (BSI) to a fixed- 
word (location 11) in core takes place. This 
word contains the start address of a level work 
area associated with level (see System Desi gn 
Considerations: System Director) . A set of in- 
structions within this area then sets the level 



busy, saves Index Registers 1, 2 and 3, and sets 
Index Register 3 as a pointer to this work level 
(at entry point + 8). It is through the level work 
area that an interrupt formally enters MIC — 
from now on, all references to the work area 
and saved information is made through the 
Index Register 3 address. 



The sequence of operations (specified by the encircled numbers) can be either 
1, 2, 3, 4, 5, 6A, 6B, 6C, 8, 9, 10, or 1, 2, 3, 4, 5, 7A, 7B, 8, 9, 10. 



Mainline Core Load 



Occurrence of Process Interrupt 
causes transfer of control to the 
interrupt servicing routine. 



Interrupt Servicing 
Routine 



CALL JOE" 




*\5 



JOE 



RETURN 

17 



Subprograms called 
by interrupt rout 



^: 



T 

lea — v 
ine. ^ 



BILL 



© 



.RETURN 



C7B> 



CALL DPART 

17 



Figure 20. Use of the CALL ENTEX, CALL DPART, and RETURN Statements. 
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2. MIC is the entry point at which all process 
(and I/O) interrupts enter the Master Control 
Program for processing. The accumulator, 
the status word, and the pseudo-accumulator, 
are now saved for the particular level of inter- 
rupt being processed. The previous (that is, 
last) work level address is also saved, and the 
new (that is, current) work level address set 
up for use by reentrant coded subroutines so 
that they are aware of the address of the par- 
ticular work level they are required to use at 
this particular time. Now that the registers 

of the interrupted level have been saved and the 
new level (0) address set up, the question of 
determining which of 16 possible interrupts is 
to be serviced on this level remains. This is 
done by sensing the ILSW. If no bits are "on" 
in the ILSW, a check is made to see whether 
a programmed interrupt has been selected for 
this level; if it has been, a transfer is made 
to (A) in Figure 22, and the processing pro- 
cedure proceeds as for a process interrupt. 
If no programmed interrupt is present, an exit 
from MIC is made via (B) — see Figure 23. 

3. If a bit is on, a branch is made via the level 
work area to the Interrupt Branch Table within 
the mainline core load to determine whether 
the interrupt is a process or I/O interrupt. 

Each core load (mainline, combination, 
interrupt, or nonprocess) must contain an 
Interrupt Branch Table which provides the 
means of routing each I/O, process, or pro- 
grammed interrupt to its appropriate servicing 
routine. The table, built in reverse order as 
shown in Figure 21, consists of single-word 
entries, each of which contains either an entry 
address to an I/O device servicing routine for 
an I/O interrupt, or a fixed address within the 
Skeleton for a process interrupt. The table is 
initially built by the Skeleton Builder and Core 
Load Builder to the specifications of the System 
Loader. Its size is determined by the number 
of bits on all interrupt levels used. 

Since we are concerned with a process inter- 
rupt (LEVEL BIT = PISW, see Figure 21) 
level will contain the entry point PRIE (that is , 
the reentry point to MIC) . (Note that if an I/O 
interrupt were present instead, the I/O servic- 
ing routine is entered. The case of an I/O inter- 
rupt occurrence is discussed later). 

4. The PISW derived from the work level is now 
sensed. If no bits are on (that is, no event has 
taken place within the process control environ- 
ment) the exit route (from MIC) is taken via (B). 



If a bit is on, it is reset, and the address of 
the ICL table associated with this particular 
interrupt set up. 
5. Now that the process interrupt is correctly 
known, the option of processing must be inter- 
rogated and executed — that is, we must now 
determine what type of servicing this particular 
process interrupt requires. Various tests are 
performed to determine: 

• Whether the interrupt is to be recorded 

• Whether the interrupt servicing routine is 
in core with the skeleton 

• Whether the interrupt is to be serviced by 
an out-of-core interrupt core load, or 

• Whether the interrupt servicing routine is 
in core with the mainline 

in conjunction with entries made in the ICL 
Table (see System Design Considerations: Sys- 
tem Director) . 

The first test ascertains whether this particu- 
lar interrupt is to be recorded. If it is, a sub- 
routine records the interrupt. If it is not to be 
recorded, a check is made to see if the interrupt 
servicing routine is included with the skeleton. 
If it is, it is serviced by that subroutine. The 
next test determines whether an interrupt core 
load has been loaded to the disk to service this 
interrupt. If it has not, the interrupt is auto- 
matically recorded. If it has, all interrupt 
levels serviced by out-of-core routines will be 
masked. This also prevents a user from un- 
masking any level that is asssociated with out- 
of-core interrupts. 

A test is now made to determine if the inter- 
rupt servicing routine is in core with the main- 
line program. If it is in core with the mainline , 
the mainline itself is in core, and we are not in 
an exchange of variable core; the Index Register 
is then set to the transfer vector, and the entry 
point of the interrupt servicing routine is located 
in the Interrupt Status Table. Entry points to 
interrupts in core with the mainline are situated 
in a table known as the Interrupt Status Table 
(1ST). The format of the table consists of: 

• One word indicating the length of the table 
for each level 

• One word for interrupts that are in core 
with the mainline 
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Figure 2 :[. Action of MIC During an Interrupt 
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• One word for interrupts which are to be 
recorded on a particular level 

followed by as many words as are necessary to 
contain the start address of interrupts in core 
with the mainline. The size of the table is 
determined by the user when he defined his 
system. 

If the interrupt is an out-of-core interrupt, 
I/O must be completed in the mainline area 
prior to either exchanging core, or, if we are 
in an exchange, prior to reading in the inter- 
rupt core load. Once the interrupt core load 
is read into core, Index Register 3 is set to 
the transfer vector and the interrupt entered 
for execution. An exchange means that variable 
core has been saved in the Interrupt Save Area 
on disk. The area exchanged will be the size of 
the largest interrupt program specified by the 
user. 



Note that due to cycle stealing I/O, some 
area may be either modified or recorded at the 
time the process interrupt occurred. This 
means that out-of-core interrupts must always 
be assigned to a priority level lower than all 
I/O devices. 

Exit from MIC. All process interrupt programs 
terminate by a return CALL INTEX statement to 
MIC. INTEX is the address to which interrupt 
servicing programs return upon completion of their 
processing. An exit procedure is now made to 
either of two routes dependent on the type of servic- 
ing routine just executed. That is, whether the 
servicing routine was an in-core-with-Skeleton rou- 
tine or an out-of-core servicing routine. 

If it is in core with the skeleton, and this is the 
last servicing required (no further PISW bits on), 
a common exit from MIC is taken via (B) and (C) — 
see Figures 21 and 23. Note that this is also the 
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Figure 22. Action of MIC during an Interrupt (Continued) 
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exit point for all I/O interrupt routines. If addi- 
tional process interrupts are indicated (that is, 
more bits for PISW sensing are on) the exit route 
proceeds to (A) — see Figure 22 — and the pro- 
cedure continues in the normal fashion of a process 
interrupt recognition. A closed loop is thus main- 
tained until all process interrupts have been ser- 
viced, finally exiting through the common exit point 
(B) for all categories of interrupts. 



If the return originated from the servicing of 
an out-of-core interrupt program, all out-of-core 
interrupt levels are unmasked at this point to allow 
other out-of-core interrupts to occur, so that it is 
not necessary to carry out an exchange of variable 
core for the servicing of that particular interrupt. 
Because the unmask instruction masked out all 
levels for one more instruction, the branch out or 
exit can be executed prior to any interrupts occurring. 
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Figure 23. Exit from MIC After an Interrupt Has Been Serviced 
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The unmask will effectively unmask back to the last 
CALL MASK level. 

A check is now made for the presence of addi- 
tional process interrupts (that is, are other PISW 
bits on?). If they are indicated, an exit path is taken 
via (A) in the normal course of servicing process 
interrupts (previously explained). If no further 
process interrupts are present, all out-of-core 
interrupt levels are masked and variable core re- 
stored to its proper status which existed prior to 
the interrupt. The system is then unmasked to the 
user's status and an exit made via (C) and (B) — 
see Figures 21 and 23. 

The Case of I/O Interrupts . When an I/O device 
interrupt occurs, a similar procedure to that dis- 
cussed in 1), 2), and 3) is adopted. In 3), it was 
mentioned that in the case of an I/O interrupt, the 
I/O servicing routine will be entered through its 
entry point in the Interrupt Branch Table (IBT). 
Some of the important aspects of the I/O device 
routine are discussed elsewhere in this section. 
The last instruction in an I/O device interrupt sub- 
routine is an indirect branch BSI I 90) back to MIC. 
Before an exit is made through the common exit 
point ((B) — see Figures 21 and 23) for all cate- 
gories of interrupts, a check is performed to deter- 
mine the presence of a programmed interrupt within 
the two groups of possible programmed interrupts — 
group 1 (levels 0-13) and group 2 (levels 14-23). 
Only the bit associated with a level is tested. If a 
programmed interrupt is present, a branch is made 
to (A) and processing proceeds as for process inter- 
rupts. The I/O device interrupt, otherwise, under- 
takes to exit from MIC through the common route (B). 

At this point, the FORTRAN I/O buffers are re- 
stored to their former state. All interrupt levels 
are masked, Index Registers 1, 2, and 3, and the 
accumulator, and words 54 and 55 are restored and 
the system is unmasked to the user's level. Pro- 
grammed interrupts are now turned on (they were 
previously turned off) and a return is made to the 
interrupted mainline program. 



Masking, Servicing, and Recording of Interrupts 

An interrupt may occur at any time, but it will not 
be recognized by MIC until the level on which it is 
assigned is unmasked and of a higher priority than 
the current level of machine operation. It is the 
1800 hardware, not MIC, that determines which 
level the interrupt is on. Interrupt levels are user- 
specified at system generation time. The user may 



delay any interrupt from being recognized by 
masking the level on which that interrupt has been 
assigned. For example, it may be to his advantage 
to delay the servicing of an interrupt to minimize 
core exchanges such as when it is known that a pro- 
gram is short and the interrupt can wait. In another 
situation, he may desire to prevent interrupts en- 
tirely from occurring, such as when a routine can- 
not be reentrant and may be called from more than 
one level. Once an interrupt has been recognized, 
MIC will determine if it is to be (1) serviced im- 
mediately or (2) recorded for servicing at a later 
time. Servicing an interrupt may be delayed by 
the user by simply setting a record option on that 
interrupt. The options of recording or servicing 
interrupts immediately may be changed from one 
mainline core load to another. This designation 
is made when the core load is initially built. MIC 
also services interrupts (a maximum of 384) in an 
optimized sequence within the user's specifications. 



Masking of Interrupts 

Interrupts can be prevented from occurring by 
masking. This is accomplished by using four 
real-time subroutines provided in TSX: 

• CALL MASK 

• CALL UNMK 

• CALL SAVMK 

• CALL RESMK 

Call Mask. CALL MASK can be used to lock out 
for some time period those designated interrupt 
levels on which the user does not want interrupts 
to occur during some time -dependent programs. 
This routine gives him the facility to inhibit or 
mask out groups of interrupt levels (0-13; 14-23) 
or selectively chosen interrupt levels. The 
status of levels not designated remain unchanged. 
The format of this statement is: 

CALL MASK (I, J) 

Where I and J are integer expressions which 
designate the level(s) to be masked. Bits 0-13 
of I refer to levels 0-13. Bits 0-9 of J refer 
to levels 14-23. Each one bit specifies a level 
to be masked. Both parameters are always 
required. 
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EXAMPLE 1. In this and following examples, DATA 
statements are used in conjunction with the CALL 
MASK and CALL UNMK statements to set up desig- 
nated levels. See IBM 1130/1800 Basic FORTRAN 
IV Language, Form C26-3715. 

The problem is to mask levels 5, 7, 11, 12, 21, 
22 and 23. 

DATA I, J/Z0518, Z01C0/ 

CALL MASK (I, J) 

Call Unmask. CALL UNMK gives the user the abil- 
ity to unlock an interrupt level — that is, it allows 
interrupts to be recognized on a level. Thus, he 
may, if he wishes, selectively allow or unmask 
interrupts, one level at a time. This is a required 
routine (and procedure) for the initial core load — 
the first core load called into the system by the 
Cold Start program. The statement format is 

CALL UNMK (I, J) 

Where I and J are integer expressions which 
designate the levels to be unmasked within 
the two groups of levels as for CALL MASK. 

EXAMPLE 2. The problem is to unmask levels 1, 
2, 3, 5, 12, and 21. 

DATA I, J/Z7408, Z0100/ 

CALL UNMK (I, J) 

From Examples 1 and 2 we see that 

• Levels 1, 2, 3, 5, 12, and 21 are unmasked, 

• Levels 7, 11, 22, and 23 are masked. 

• Levels 4, 6, 8, 9, 10, 13-20 are unchanged. 

The mask and unmask subroutines maintain a 
current record of the interrupt level mask status. 
This is necessary since the system sometimes 
masks all levels and then restores the status of 
these levels according to this record. The user 
should always mask and unmask via these routines 
to keep this record current. 

EXAMPLE 3. The problem is to unmask all levels 
(as at cold start time). 

CALL UNMK (-1,-1) 



Call Save Mask. CALL SAVMK allows the user to 
save the masked condition (that is, the contents of 
the current mask words) that existed prior to his 
calling for masking. The statement format is: 

CALL SAVMK (I, J) 

Where I and J are integer variables that will 
receive the contents of the retained mask words. 

For example, a mainline has just masked cer- 
tain levels of interrupts. The user may not be 
aware of this condition — that is, he may not know 
which bits are on (masked). So, he executes a 
CALL SAVMK to save this condition prior to mask- 
ing those levels of interrupt he plans to have masked. 
When he is ultimately ready to unmask these levels, 
he executes a CALL RESMK which restores or re- 
turns the masked register to its original condition. 
This acts, effectively, as a mask and unmask rou- 
tine and is closely analogous to the saving and re- 
storing of registers, etc., during the handling of 
an interrupt. 

Call Restore Mask. CALL RESMK is used to per- 
form a mask and unmask operation to restore the 
interrupt mask register to its previously saved 
condition. The variables used as parameters are 
normally those named in a previous CALL SAVMK 
statement. Its format is: 

CALL RESMK (I, J) 

Where I and J are as for CALL MASK, except 
that each one bit specifies a level to be masked; 
each zero bit specifies a level to be unmasked. 

EXAMPLE 4. The problem is to mask levels 5,7, 
9, 10, and 12; unmask all other levels. 

DATA I, J/Z0568, Z0/ 

CALL RESMK (I, J) 

Restrictions. It is not possible to unmask an out-of- 
core interrupt level: 

1. while an out-of-core interrupt level specified 
on the System Director equate cards ICLL1-2 
is being serviced, 

2 . while a mainline core load is being loaded by 
the Program Sequence Control (PSC) program 
— e.g. , by CALL CHAIN, CALL BACK, 
CALL SPECL. 
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Servicing of Interrupts 

In the servicing of interrupts, the answers to three 
vital questions must be known: 

1. What caused the interrupt? 

2. How fast is its response? 

3. How often does it occur? 

In practice , the service action taken depends to 
a large extent on the frequency of occurrence of an 
interrupt, and the time required to service it — 
that is, its servicing time span. There are, in 
general, four approaches in servicing interrupts: 

• The servicing routine may reside in the skeleton. 

• It may be located on disk as an interrupt core 
load. 

• The user has the option to include the servicing 
routine as an integral part of a mainline core 
load. 

• The user has the option to record the interrupt. 
That is, he may delay its servicing until it is 
cleared by a CALL CLEAR or serviced by a 
CALL QIFON. 



CALL CLEAR — Clear Recorded Interrupts 

The CALL CLEAR Statement is used to ignore or 
clear interrupts which have occurred but which 
were recorded for later servicing. The statement 
format is: 

CALL CLEAR (M, L, I, L, I ) 

Where M = an integer constant which specifies 
the number of parameters to follow. 
If M = 0, all indicators specifying 
the recorded status are changed to 
indicate "not recorded M . 
and I = as for CALL QIFON (see Program 
Scheduling) . 



is serviced by an out-of-core interrupt core load. 
This core load may, in turn, be made to queue a 
mainline core load or a series of mainline core 
loads to alter, say, the entire user control strategy. 

Consider another example. A mainline core load 
may begin a chain of operations by setting up a pro- 
grammed interrupt for a specific level. This inter- 
rupt may be recorded, or it may be immediately 
serviced. 

The user will always obtain rapid and immediate 
servicing of interrupts if he (1) includes his inter- 
rupts as part of the System Skeleton, (2) does not 
record these interrupts. Interrupts that reside in 
core with the skeleton never require an exchange, 
while those that are included with a mainline core 
load may require an exchange if a nonprocess pro- 
gram is in memory on a time-sharing operation. 
If, however, time-sharing is not being used (that is, 
the mainline core load is in memory) or another 
interrupt serviced by an interrupt core load is in 
progress, interrupts in core with the mainline core 
load will be serviced almost immediately. 

In general, therefore, interrupt servicing rou- 
tines should be short in execution time. The reason 
for this is that the 1800 hardware locks out lower 
priority level interrupts for whatever time that is 
involved on that level. That portion of the inter- 
rupt routine that is not required for execution at 
this priority level should, therefore, be carried 
out either at the mainline level or at a lower priority 
level. 

If mainline core loads are used to service inter- 
rupts through the queueing technique, then the user 
must ensure that his mainline core loads do not 
remain in execution for a period of time that is 
unacceptable to him prior to checking the Queue 
Table. A mainline core load may be interrupted 
by a CALL SPECL in such a core load (see Pro- 
gram Scheduling) . 



Recording of Interrupts 

In general, interrupts may be recorded, that is, 
deferred service, under any of three different sets 
of circumstances: 



CALL CLEAR can be used in any process 
program. 

The above four general approaches provide a 
variety of ways of handling a specific interrupt. 
For example, an INSKEL interrupt routine may 
set up a programmed interrupt for a level which 



1. When the user has one or more mainline core 
loads that must be executed within a certain 
time span. 

2. When the user is adjusting or optimizing the 
process control and creating conditions which 
would cause interrupts to occur, and he elects 
to ignore them. 
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3. The user may wish to record interrupts for 
later servicing, but he prefers to do this 
through a CALL QIFON procedure rather than 
have them serviced on an interrupt level. 

Interrupts to be recorded are entered on a 
*RCORD control card (in any order) and assembled 
at core load build time. The data set up in the card 
is later placed into the Interrupt Core Load Table 
from the Interrupt Status table (within each core 
load) by PSC. 

The action of MIC when an interrupt occurs and 
the procedural flow through its servicing has al- 
ready been described elsewhere in this section. 



Rules Governing the Servicing of Interrupts 

1. If an interrupt is serviced by a subroutine lo- 
cated in the variable area, it must be at a 
lower priority level (higher number) than the 
I/O device. This applies to: 

Interrupt and combination core loads 
Interrupt subroutines included with the 
mainline 

The exception to this rule is that an interrupt must 
be on a level of priority lower than the I/O device 
it intends to use except for the disk and the 1053 
typewriter. DISKN and TYPEN are so written that 
if either the disk or the typewriter detects that its 
call was executed from a level with a higher priority, 
it will remain in itself until the servicing operation 
is completed. This is achieved by sensing the ap- 
propriate Device Status Word (DSW). 

2. If a servicing routine does not use any I/O 
device, it may be on any level, but the routine 
must be in the skeleton — not in the variable 
area of core. 

3. Interrupts on levels that are serviced by out- 
of-core interrupt core loads are serviced in 
the masked mode so that they cannot be inter- 
rupted by another interrupt serviced by an out- 
of-core routine. Only one level of exchange 

is maintained. 



USE OF INTERVAL TIMERS 

In most industrial control installations, some portion 
of the control of the user's system will require re- 
sponse in time — that is, the user may want to 



schedule his programs periodically or at a specific 
time of day. For example, he may wish to print a 
shift log on a synchronous basis, say at 8 a. m. , 
4:30 p. m. , and midnight each day; or he may take 
periodic scans of his process instrumentation once 
every five minutes; or there may be certain loops 
to time out. 

An interval timer is, by definition, a clocking 
device which cycles a value contained in a full word 
of main storage. It thus provides a computer sys- 
tem with the ability to read elapsed time in second 
or millisecond increments, and to inform the system 
when a specified period of time has passed. 

A simple cyclic timer serves, in effect, both as 
a basic interval counter and clock. In order to 
measure an elapsed time interval, a predetermined 
total count is loaded into the counter word storage 
by program control and a count down to zero is 
initiated. As the particular counter reaches zero, 
an internal interrupt signal is sent to the system. 

Information about elapsed time and local time 
is often required by control computer systems to 
initiate hourly logs, to time the period between con- 
trol actions on the process, for process data 
updating, etc. The time of day is required for 
printing logs, alarm records, and so on. 

Clock interrupts can be used to start a scheduled 
computer operation. For example, in the control of 
a complex distillation plant process, periodic inter- 
rupts have been used to initiate the recalculation of 
the reflux ratio required to maintain a desired sepa- 
ration in the tower. In this situation, control of a 
dependent process quantity is possible through a 
periodic reexamination of process conditions re- 
quiring extensive computer time. 

To accomplish the above, the Interval Timer 
Control (ITC) program provides for FORTRAN 
language control of three hardware interval timers , 
A, B, and C which operate on various user-specified 
time bases (see Table 1) . Timers A and B are 
available to the user, while Timer C is used ex- 
clusively by TSX for time-sharing control purposes 
and as a real-time clock. Furthermore, Timer C 
is expanded into nine additional programmed interval 
timers — thus making available to the user a total 
of 11 interval timers. As shown in Figure 24, each 
interval timer is assigned a fixed location in core 
storage. 

ITC also performs three additional functions: 

• Resets the Operations Monitor during time-sharing 

• Tests for no response from 1053 printers 

• Performs end of time -sharing 
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Name 


Core Storage Location 


Machine Timers 




A 


00004 


B 


00005 


C 


00006 


Programmed Timers 




1 


00062 


2 


00065 


3 


00068 


4 


00071 


5 


00074 


6 


00077 


7 


00080 


8 


00083 


9 


00086 


Time- Sharing Clock 


00089 



Figure 24. Timer Locations in Core Storage 



The establishment of the two principal time bases, 
the Primary (or Interrupt) Time Base and the Sec- 
ondary (or Programmed) Time Base, and their re- 
lationships to the system are discussed in the section, 
System Design Considerations: System Director. 

Each timer is assigned to a wired-in time base 
by the user at system generation time, selectable 
from the table of available time bases given in 
Table 1. 

The . 125ms time base is available only on a 2usec 
machine; the 128ms time base, only on a 4usec 
machine. Each timer is assigned a permanent time 
base by the user. Note that a different time base can 
be selected for each timer, but all three timers (A, 
B, and C) must be assigned to the same interrupt 
level. In order to schedule programs based on hours, 
minutes, or seconds, the wired-in time base for 
interval timer C must be an even divisor of one 
second (e.g., .5, 1, 2, 4, 8). The servicing of all 
interrupts is controlled by ITC. 



Hardware Timers A and B 



CALL TIMER 



In order to use timers A and B, the system pro- 
vides a basic call statement: 



CALL TIMER (NAME, I, INT) 



where 



NAME = Name of the user's subprogram 

that is executed when the specified 
time elapses. Note that NAME 
must also appear in a FORTRAN 
EXTERNAL statement (see IBM 
1130/1800 Basic FORTRAN IV 
Language, Form No. C26-3715). 
I = An integer expression whose value 

must be: 

1 for Timer A (word 00004) 

2 for Timer B (word 00005) 

INT = A user-assigned positive integer 

expression which specifies the 
number of interval counts before 
the user's subprogram is executed. 

The subprogram specified in a CALL TIMER 
statement must be in core storage when the interrupt 
generated by the timer is recognized. The interrupt 
occurs when the time specified has elapsed, but it 
is only recognized 

1 . When the level of current operation is lower 
than the timer interrupt level, and 

2. If the timer level is unmasked. 



Table 1. Table of Available Timer Time Bases 



Core Storage 
Cycle Times 


Available Time Bases (In Milliseconds) 


2 Msec 


.125 


.25 


.5 


1 


2 


4 


8 


16 


32 


64 


4 ^sec 


.25 


.5 


1 


2 


4 


8 


16 


32 


64 


128 
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At the end of the elapsed time, the timer resets 
itself. Note that, when zero time has been reached, 
the timer continues to operate — that is, zero is not 
a not -busy condition. 

In the section System Design Considerations : Sys_- 
tem Director, it is pointed out that it is the user's re- 
sponsibility to ensure that the mainline program 
which requested the timer statement remain in 
core until the end of the elapsed specified time — 
that is, until the timer times out. He achieves this 
either by 



1. Including the subprogram in the Skeleton, or 
by 

2. Masking out all out-of-core interrupt levels, 
and forbidding a core load exit until the timer 
interrupts. 
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Unless previously loaded with the System Skele- 
ton, the subprogram is automatically loaded with 
the calling mainline core load. 

In addition, periodic programs (that is, programs 
initiated by interval timers) should not, as a rule, 
be executed on the timer level: they should make 
use of the programmed interrupt technique. 

The following examples assume that the timers 
specified are called from only one level. If possible, 
it is preferable not to share timers among two dif- 
ferent programs. 



If we assume that the Primary Time Base 
( = 500ms) for statement 1 in the above coding 
has not elapsed, the Timer A interrupt will occur 
2ms after execution of statement 2 when subpro- 
gram MILL2 will be executed. Subprogram MIL5H 
will never be executed because Timer A was reset 
before the 500ms time elapsed. Although this con- 
dition can be prevented (see Example 3), its logic 
can prove useful under certain practical conditions. 



EXAMPLE 1. Assume hardware Timer A is wired 
for the . 125ms time base. 



CALL TIMER (SCAN1, 1, 35) 



EXAMPLE 3. Assume identical conditions as for 
Example 2. This example illustrates the use of the 
LD functional subroutine in testing for a ftimer-busy 
condition. 

The format of this function is: 

LD(I) 



When this statement is executed, ITC initializes 
Timer A (by setting it to -125) and returns control 
to the next executable instruction following the CALL 
TIMER statement. When the Primary (or Interrupt) 
Time Base ( = 35 X . 125 = 4. 375ms) elapses, an 
interrupt occurs and control passes to the subpro- 
gram named SCAN1. 



EXAMPLE 2. Assume hardware Timer A is wired 
for the 1ms time base. 



where 



= A user -as signed integer expres- 
sion that specifies a core storage 
address. The contents of this 
address are moved to the accumu- 
lator. This permits a test for 
busy, etc. , of known locations 
outside of the program area. 
Timer storage locations are 
given in Figure 24. 
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Statement 2 tests if Timer A is busy. If it is 
busy (that is, negative in core location 00004), a 
programmed loop is activated until Timer A is no 
longer busy (that is, when subprogram MIL5H 
is executed) at which time statement 3 is processed. 

EXAMPLE 4. Another example is given to illustrate 
the use of the LD subroutine function for a test for 
timer-busy condition. 

This test is required if subprogram SUBR7 is not 
in the skeleton and time-sharing is utilized. 

In this example, statement 12 tests if Timer A is 
busy, and waits until subprogram SUBR7 has been 
executed before passing to the CALL VIAQ statement. 



NOTE: The execution of a machine interval timer 
busy-test using the LD (I) functional subroutine in 
an IF statement may fail to indicate the correct 
busy status if (1) the timer interrupt occurs immedi- 
ately after the loading of the timer not-busy indi- 
cation (a zero), and (2), in servicing the interrupt, 
the timer is reinitialized on another level. 

Thus, when a timer is shared by different levels, 
a solution (see below) would be to follow the first 
busy-test by a second busy-test in order to prevent 
an interrupt out of the busy-test. 
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Notice that although the not-busy status remains 
in the accumulator after the return from the inter- 
rupt, it will be initialized for testing in the following 
load instruction. 



Real-Time Clock 
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ITC also provides a programmed real-time clock 
which keeps time on a 24-hour basis and is updated 
each time Timer C decrements to zero (that is, it 
is incremented from 00. 000 to 23. 999; then returns 
to 00. 000). The clock accuracy is a function of the 
Primary (or Interrupt) Time Base discussed in the 
section System Design Considerations: System 
Director 



CALL SETCL — Set-up Programmed Real-time 
Clock 

Note that the clock is set at cold start time (a user 
option) , but if it is required to be set at any other 
time through a user program, the following statement 
is provided. 
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where 
I 



CALL SETCL (I) 



A user-assigned integer expression 
specifying the time of day setting 
desired in hours and thousandths 
of hours (e.g., 8 a.m. = 08000; 
10.45 a.m. = 10750) 



CALL CLOCK — Read Programmed Real-time Clock 

If the user desires to read the clock, say, for time- 
recording of his output to the printer, disk, etc. , he 
does so through a 

CALL CLOCK (I) 



at System Skeleton build time. 
Program numbers are used in- 
stead of names to provide the 
record interrupt option. 
I = An integer expression, identifying 

the number (1-9) of the program- 
med timer. 
INB = A user-assigned expression that 

specifies the number of interval 
counts before the called program 
is executed. This numb€!r is a 
function of the Secondary (or Pro- 
grammed) Time Base. 

An additional programmed timer is used as the 
time-sharing control timer for the allocation of time 
slicing for non-process operations (see Us e of Time 
Sharing) . 



where 

I = A user-assigned integer variable 

which indicates the core location 
where the readout time is stored. 

Note that the clock is also used by the Error Alert 
Control (EAC) Program to time-stamp error mes- 
sages. 



EXAMPLE 5. The problem is to queue an analog 
scan program every five minutes with a priority of 7 
if JTEST (a programmed indicator in INSKEL COM- 
MON) is set to zero; if it is non-zero, queue the 
same program every minute with a priority of 1. 
Assume the following: 

1. Subroutine 19 is SUBROUTINE A which was in- 
cluded in the Skeleton at Skeleton build time by 
an include card 



Programmed Timers 



*INCLD A/2703 



The mechanism of programmed timers is covered m 
the section System Design Considerations: System 
Director. 



CALL COUNT 

Programmed interval timers are controlled by the 
following statement. 



where 

IN 



CALL COUNT (IN, I, INB) 



A user-assigned integer constant 
or integer variable that specifies 
the number (in the range 0-31) of 
the program to be executed or 
recorded when the specified time 
elapses. The number is assigned 



thus assigning it as count routine number 19. 
2. Primary Time Base = 8ms (Timer C wired 
time base) X 125 (user-assigned number) = 
1 second 

Secondary Time Base = 1 (Primary Time Base) 
X 15 (user-assigned number) = 15 seconds 

To solve the problem, a CALL COUNT statement 
must be given in a mainline core load, thus: 
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This designates that subroutine 19 is to be called 
in 5 minutes; thereafter, the subroutine calls itself 
within the specified time period. Its coding is shown 
in Figure 25. 

SCAN is the name of a mainline core load that 
will be executed at mainline level as the result of 
a CALL VIAQ when SCAN is the highest priority 
entry in the queue. 

In order to effect immediate execution of the scan 
routine, the CALL QUEUE statement may be re- 
placed by a CALL LEVEL statement to cause an 
interrupt on a lower level. This allows the user 
the flexibility of executing the SCAN routine either 
as an interrupt core load, an INSKEL interrupt 
servicing routine, or as a routine included with a 
mainline. The advantage is that the timer interrupt 
level is not tied up. It also gives the user the ability 
to call other I/O devices within the SCAN routine. 

If the time-sharing mode is not used, the CALL 
ENDTS statement has no effect. If it is used, the 
time-sharing clock is set to zero and a return made 



to the calling program. See Use of Time - Sharing 
for further action. 

A further example is given elsewhere in this 
section (see Program Scheduling ). 

Table 2 provides a ready comparison of the 
salient features in the usage of interval timers 
and programmed timers. 

USE OF TIME -SHARING 

In many industrial control installations, the user 
will have a large amount of time that is not utilized 
by the process being controlled. To allow him to 
make effective use of this time, the time-sharing 
feature of the TSX system gives him the ability to 
compile, assemble, and simulate without taking 
the system off-line. In this manner, low-priority 
jobs are automatically interrupted whenever the need 
arises to execute a higher-priority task. In addition, 
the inclusion of this feature gives the user the capa- 
bility of modifying the logic of his control strategy. 
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Figure 25. Subroutine A for Example 5 — Queueing an Analog Scan Program 
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Table 2. Comparison of Timers 



INTERVAL 

TIMERS 

1 &2 


USED WHEN 

SHORTER TIME 

BASE IS 

SPECIFIED 


SUBROUTINE 
CALLED MUST BE 

IN CORE (IN 

SKELETON OR 
INCLUDED WITH 
MAINLINE) WHEN 

TIMER ELAPSES 


CANNOT BE 

A RECORDED 

INTERRUPT 


SUBROUTINE IS 

EXECUTED ON 

INTERRUPT 

LEVEL OF 

INTERVAL 

TIMERS 


EXIT WITH 
A RETURN 
STATEMENT 


PROGRAMMED 
TIMERS 


USED WHEN 

LONGER TIME 

BASE IS 

NEEDED 

(E.G., HOURS) 


SUBROUTINE MAY 

OR MAY NOT BE 

IN CORE WHEN 

TIMER ELAPSES 


IF SUBROUTINE 
IS NOT IN CORE, 

IT IS HANDLED 

AS A RECORDED 

INTERRUPT 


MAYBE 

EXECUTED ON 

INTERRUPT 

LEVEL OR 

MAINLINE LEVEL 


EXIT WITH 

A RETURN 

OR CALL 

VIAQ 



Methods of Initiating Time-Sharing 

Time-sharing can be initiated in two ways: selec- 
table method (CALL SHARE) and automatic method 
(CALL VIAQ). 

Selectable Method — CALL SHAR E 

The user will know at some predetermined point in 
his program that he wishes to discontinue being in 
the process mode for a specific period of time. He 
therefore enters the time -sharing mode by the exe- 
cution of a CALL SHARE (that is, he gives up con- 
trol to the Nonprocess Monitor via the CALL 
SHARE). This statement may be part of the user's 
process program intended for those special appli- 
cations where time-sharing is desired without the 
use of the queueing technique. Its format is as 
follows: 

CALL SHARE (I) 

Where I is an integer expression which specifies the 
number of time intervals allowed for the nonprocess 
program operation. The basic time interval is 
assigned by the user at system generation time (see 
System Design Considerations - System Director ; 
also Use of Interval Timers ). 

The meaning of the I parameter is clarified by 
the following example. 

EXAMPLE 1. Assume that the secondary time base 
is 15 seconds (see Use of Interval Timers). Then 



Time-Sharing 
Interval Requested 

1 minute 

5 minutes 

30 seconds 

1.75 minutes 



Required 
Statement 

CALL SHARE (4) 

CALL SHARE (20) 

CALL SHARE (2) 

CALL SHARE (7) 



The time-shared operation is terminated when- 
ever the time interval specified by the user has 
elapsed; it is usually not terminated before. Thus, 
if 1 minute of time-sharing is indicated, it is usually 
1 minute before control is returned to the next exe- 
cutable instruction following the CALL SHARE 
statement. The exchange time is not part of the 1 
minute specification. This 1 minute is the length 
of the time in the share mode. All interrupt time 
is alloted against this 1 minute span. 

Note that the Nonprocess Monitor will perform 
a WAIT operation if there are no off-line jobs for 
execution. Also, interrupts will be serviced as 
they occur. If an interrupt routine recognizes a 
need for the process program to resume operation, 
it can terminate the time -sharing mode by executing 
the following call: 

CALL ENDTS 

CALL ENDTS can be used only in an interrupt 
routine where it sets the time -sharing clock to 
indicate zero time. The first Timer C interrupt 
that occurs after control is returned to the non- 
process program causes the time-sharing operation 
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to be terminated; control then reverts to the process 
mainline program. Note also that whenever time- 
sharing is not in force the CALL ENDTS statement 
is ineffective. 



Automatic Method — CALL VIAQ 

The second method uses the queueing technique to 
load a mainline or combination core load when the 
Core Load Queue Table is empty, by executing a 
CALL VIAQ (See Program Scheduling). 

Note that a CALL VIAQ (when referenced) forces 
a CALL SHARE statement for execution when the 
queue is empty only if the user has indicated through 
the use of the Console Interrupt button, with sense 
switch 7 on, that batch work is to be carried out. 
As a result, the process core load which is in 
progress, or which has just been completed, is 
saved on disk and control transferred to the Non- 
process Monitor (or the nonprocess core load if one 
had been interrupted and stored on disk). The period 
of time allocated to time-sharing is specified by the 
user in a System Director equate card, TISHA, at 
system generation time. The computer remains in 
the nonprocess mode for this specified period unless 
a CALL ENDTS is executed by an interrupt routine. 

At the completion of the specified time, another 
CALL VIAQ is automatically forced by the system. 
If, in the meantime, a core load has been queued, 
it is then executed. If the queue remains unchanged 
(that is, nothing has been added to it), another time- 
sharing operation will be triggered. 

If, at the end of a nonprocess job, the // END OF 
ALL JOBS card indicates that there is no further 
nonprocess work for execution, the VIAQ routine 
will WAIT until either some addition has been made 
to the queue or the Console Interrupt (C. I. ) button 
is again depressed for the commencement of a new 
nonprocess job. 

This method of entering time-sharing is, in 
practice, preferred to CALL SHARE. CALL SHARE 
may, however, be desirable in certain special 
situations. 

Two additional functions performed by the Time- 
Sharing Control (TSC) program are CALL LINK 
and CALL EXIT when these are referenced from 
nonprocess programs. 

EXAMPLE 2. (See Program Listing No. 1). In 
order to illustrate some of the many TSX usages 
without complex FORTRAN/Assembler language 
coding, the following example was devised. Note 



that in this example, the system and list printers 
have been defined as the same device (1443). In 
actual practice, the system printer would be a 
1053; the list printer, a 1443 or another 1053. 

Three analog inputs, A, B, and C, are to be 
read at 15 -second intervals. After C has been 
read, linear interpolation is used between point A 
and point B, and between point B and point C. The 
values A, B, and C are temperatures: the tempera- 
tures between A and B, and B and C are linear. 
The point at which temperature A is taken is 25 feet 
away from the point where temperature B is taken; 
similarly for B and C. 

A temperature histogram showing temperature 
versus distance is to be printed on the list printer. 

A nonprocess program is to be written which 
simply lists numbers: this program is to be exe- 
cuted in the time-sharing mode. 

Timer 2 is used to produce an interrupt every 15 
seconds so that one of the three analog inputs may 
be read. 

The skeleton contains a timer service subroutine 
for Timer 2, called SCAN, which calls programmed 
interrupt level 7 when 15 seconds have elapsed 
(that is, SCAN executes a CALL LEVEL (7)). Timer 
2 has a base (TBASE) of 1 millisecond. 

The problem was solved under TSX using the in- 
skeleton subroutine SCAN and the following five core 
loads: 

COLDC 
WAITC 
READC 
CALCC 
SHOWC 

Figure 26 illustrates the general problem logic 
flow. 

COLDC (referred to at execution time as C/L #1). 
This is a mainline core load which is directly 
called by the cold start program. Its primary 
function is to unmask all interrupt levels, set 
timer to 15 seconds, and chain to core load 
WAITC. 

WAITC (referred to at execution time as C/L #2). 
This core load merely calls VIAQ which results 
in either a queued program being executed, or 
the beginning of time -sharing. 

READC (referred to at execution time as C/L #3). 
This is the solitary interrupt core load which is 
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executed on level 7. The SCAN routine in skele- 
ton executes a programmed interrupt to level 7 
each time the 15-second interval elapses. The 
*STGRECI control card for this core load contains 
level and bit indicators equal to 2407 — which 
indicates programmed interrupt level 7. 

When this core load is executed, an indicator 
named ICNT, which is in INSKEL COMMON, is 
interrogated. If this indicator is 1, the first 
point A is read, timer 2 is reset (for another 15- 
second interval), and the core load exits by way 
of a CALL INTEX. 

If the indicator is 2, the second point B is 
read., the timer is reset, and the core load exits. 

If the indicator is 3, the third point C is read, 
the timer is reset, two core loads CALCC and 




SCAN 



(INSKEL S/R) 



COLDC 



CALL LEVEL (7) 



(MAINLINE) 



CALL TIMER(SCAN,2, 15000) 



CALL CHAIN(WAITC) 



WAITC 



(MAINLINE) 



READC 



(INTERRUPT) 



TESTS QUEUE AND 
TIME-SHARES IF 
EMPTY 

CALL VIAQ 



CALL TIMER(SCAN,2,15000) 
CALL QUEUE(CALCC, 1,0) 
CALL QUEUE(SHOWC,2,0) 
CALL ENDTS 
CALL INTEX 




SHOWC 



(MAINLINE) 



CALLVIAO 



J 



SHOWC are queued, time-sharing is terminated, 
and the core load exits via a CALL INTEX. 

CALCC (referred to at execution time at C/L #4). 
CALCC takes the three analog readings, A, B, 
and C, which have been stored in INSKEL COM- 
MON, interpolates and stores the 51 results 
back into INSKEL COMMON. 

The core load is executed by a CALL VIAQ. 

SHOWC (referred to at execution time as C/L #5). 
SHOWC takes the 51 interpolated results from 
INSKEL COMMON and outputs a scaled histo- 
gram on the list printer. It then calls VIAQ. 

NOTE: Each core load prints a message on entry 
to and on exit from the core load itself. This 
message identifies the core load as C/L 1, C/L 2, 
C/L 3, C/L 4, or C/L 5. 

This diagnostic message is accomplished by a 
CALL -type FORTRAN subroutine which is included 
in the skeleton. Its format is as follows: 

CALL ENT (I, J) 

where ENT is the name of this subroutine. 
Either of two messages, depending on the 
parameters I and J, will be printed: 



A) ENTERED C/L NO. 

B) EXITED C/L NO. 



ENTERED will be printed when 1 = 1. 
EXITED will be printed when 1 = 2. 

J is the core load identification number as 
follows: 



J = 


1 


= COLDC 


J = 


2 


= WAITC 


J = 


3 


= READC 


J = 


4 


= CALCC 


J = 


5 


= SHOWC 



The on-line results on the list printer (Program 
Listing No. 1) also clearly indicate when time- 
sharing has taken place. 



Figure 26, General Problem Logic Flow — Example 2 
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PROGRAM LISTING NO. 1: EXAMPLE 2 



FLET 

PACK LABEL 
00000 

.FIOS 001B 03A0 
DUMMY 0092 0488 
/PRSV 4000 05AC 



(Note: This Is the state of FLET before compilations 
begin ) 



/EPOM 


7FFF 


03BB 


/EPSV 


0780 


0422 


DUMIN 


005A 


0489 


NONPR 


00F0 


048A 


.SKEL 


0038 


05E0 


.EPRG 


0022 


0618 



/INSV 2280 0428 
MP 0098 048B 
/CLST 0780 063A 



/NPSV 4000 0444 
9DUMY OOEC 048C 
.E 00F0 0488 



.MESS 0010 0478 
/SPSV 4000 0578 



DUP FUNCTION COMPLETED 



// JOB 

// FOR COLDP 

*I0CS(1443PRINTER) 

*LIST ALL 



EXTERNAL SCAN, WAITC 

C0MM0N/INSKEL/I1,I2,I3,INCNT 

CALL UNMK{-1,-1) 

CALL ENT(1,1) 

INCNT=1 

CALL TIMER ( SCAN, 2t 1 5000 ) 

CALL ENT(2,1) 

CALL CHAIN (WAITC) 

END 



VARIABLE ALLOCATIONS 
II =FFFF* 12 =FFFE* 13 =FFFD* INCNT=FFFC* 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 



CALLED SUBPROGRAMS 
SCAN WAITC UNMK 



ENT 



TIMER CHAIN PRNTN EBPRT 



INTEGER CONSTANTS 

1=0004 2=0005 15000=0006 



CORE REQUIREMENTS FOR COLDP 
COMMON INSKEL COMMON 



VARIABLES 



PROGRAM 



END OF COMPILATION 



COLDP 

DUP FUNCTION COMPLETED 

// DUP 

fSTORECIM M COLDC COLDP COLDC 

*CCEND 



CLB, BUILD COLDC 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


4002 


OOOC 


*IBT 


TABLE 


400E 


001D 


*FIO 


TABLE 


402B 


0010 


*ETV 


TABLE 


403B 


OOOF 


*VTV 


TABLE 


404A 


001E 


♦ 1ST 


TABLE 


4068 


' 0036 


*PNT 


TABLE 


409E 


OOOC 


MAIN 


COLDP 


40B1 




PNT 


COLDC 


40A0 




PNT 


COLDC 


40A4 




CALL 


UNMK 


40D6 




CALL 


ENT 


413D 




CALL 


TIMER 


415C 




PNT 


WAITC 


40A8 




LIBF 


SUBIN 


41B2 


404A 


LIBF 


COMGO 


41EC 


404D 


LIBF 


MWRT 


43C8 


4050 


LIBF 


MIOI 


447 E 


4053 


LIBF 


MCOMP 


4455 


4056 


LIBF 


IOU 


487A 


4059 


CALL 


IQFIX 


4932 
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CALL 


BT1BT 


4962 




CALL 


SAVE 


48CE 




LIBF 


ADRCK 


49C6 


4Q5C 


LIBF 


FLOAT 


4A18 


405F 


LIBF 


IF IX 


4A34 


4062 


LIBF 


NORM 


4A60 


4065 


CORE 




4A8E 


3572 



CLB, COLDC LD XO 

D 45 CORELOADS NOT FOUND 

WAITC 

DUP FUNCTION COMPLETED 



This It a genuine TSX warning message. It Indicates 
that core load WAITC was not built at this stag*. 



// JOB 

// FOR WAITP 

*LIST ALL 

*IOCS ( 1443PRINTER) 



CALL ENT(li2> 
CALL ENT<2,2) 
CALL VIAQ 
END 



FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
ENT VIAO PRNTN EBPRT 

INTEGER CONSTANTS 

1=0000 2«0001 

CORE REQUIREMENTS FOR WAITP 
COMMON INSKEL COMMON 



VARIABLES 



PROGRAM 



12 



END OF COMPILATION 



WAITP 

DUP FUNCTION COMPLETED 

// DUP 

*STORECIM M WAITC WAITP COLDC 

*CCEND 



CLB, BUILD WAITC 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


4002 


OOOC 


*IBT 


TABLE 


400E 


001D 


*FIO 


TABLE 


402B 


0010 


*ETV 


TABLE 


403B 


OOOF 


*VTV 


TABLE 


404A 


001E 


*IST 


TABLE 


4068 


0036 


#PNT 


TABLE 


409E 


0008 


MAIN 


WAITP 


40A8 




PNT 


WAITC 


40A0 




PNT 


COLDC 


40A4 




CALL 


ENT 


40CF 




CALL 


VIAO 


40EE 




LIBF 


SUBIN 


414E 


404A 


LIBF 


COMGO 


4188 


404D 


LIBF 


MWRT 


4364 


4050 


LIBF 


MIOI 


441 A 


4053 


LIBF 


MCOMP 


43F1 


4056 


LIBF 


IOU 


4816 


4059 



CALL IOFIX 48CE 
CALL BT1BT 48FE 
CALL SAVE 486A 
LIBF ADRCK 4962 
LIBF FLOAT 49B4 
LIBF IFIX 49D0 
LIBF NORM 49FC 
CORE 4A2A 



405C 
405F 
4062 
4065 
35D6 



CLB, WAITC LD XO 
DUP FUNCTION COMPLETED 
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// JOB 

// FOR READP 

■M0CSI1443PRINTER) 

*LIST AU 



EXTERNAL SCAN, CALCC, SHOWC 

C0MM0N/INSKEL/IA1,IA2,IA3,ICNT 

CALL ENT(1,3) 

L=ICNT 

GO TO 15, 10, 15), L 
5 K = 76 

GO TO 20 
10 K=79 

GO TO 20 
15 K=127 
20 CALL AIP(0,JTEST) 

GO TO (25,30),JTEST 
25 GO TO 20 
30 CALL AIP(01000,ITEMP,K) 

70 CALL AIP(0,JTEST) 
GO TO (71,72),JTEST 

71 GO TO 70 

72 GO TO (35, 40, 45), L 
35 IA1=ITEMP 

GO TO 50 
40 IA2=ITEMP 

GO TO 50 
45 IA3=ITEMP 
50 WRJTE(3,100) ICNT 
100 FORMAT ( • ICNT=',I3) 

ICNT=ICNT+1 

CALL TIMER ( SCAN, 2, 15000) 

GO TO (55, 55, 55, 60), ICNT 
55 CALL ENT(2,3) 

CALL INTEX 
60 ICNT=1 

CALL OUEUE(CALCC,1,0) 

CALL QUEUE(SHQWC,2,0) 

CALL ENOTS 

CALL ENT(2,3) 

CALL INTEX 

END 



VARIABLE ALLOCATIONS 
IA1 -FFFF* IA2 -FFFE* IA3 

STATEMENT ALLOCATIONS 
100 =0000 5 =0023 10 
35 =0057 40 ^0050 45 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 



CALLED SUBPROGRAMS 
SCAN CALCC SHOWC 



ENT 



■FFFD* ICNT »FFFC* L 



=0029 


15 


= 002F 


20 


= 0033 


25 


=003D 


=0063 


50 


= 006 7. 


55 


= 0081 


60 


= 0087 



=0000 K =0001 JTEST=0002 ITEMP-0003 
30 "003F 70 =0044 



71 



=004E 72 



= 0050 



AIP 



INTEGER CONSTANTS 

1=0004 3=0005 76=0006 



CORE REQUIREMENTS FOR READP 
COMMON INSKEL COMMON 



TIMER 


INTEX QUEUE 


ENDTS 


CQMGO MWRT 


MCOMP . 


MIOI PRNTN 


79=0007 


127=0008 


0=0009 


1000=000A 


2=000B 


15000=000C 


VARIABLES 


4 PROGRAM 


156 









EBPRT 



END OF COMPILATION 



READP 

DUP FUNCTION COMPLETED 

// DUP 

*STORECIM I READC READP 

*CCEND 



2407 



READC if an Interrupt core load responding to a 
programmed Interrupt on level 07. 



CLB, BUILD READC 



ROC ANINT 0023 LEV.O 



CORE LOAD MAP 

TYPE NAME ARG1 ARG2 
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*CDW 


TABLE 


4002 


OOOC 


*IBT 


TABLE 


400E 


001D 


*FIO 


TABLE 


402B 


0010 


*ETV 


TABLE 


40 3 B 


OOOF 


*VTV 


TABLE 


404A 


0021 


*PNT 


TABLE 


406C 


OOOC 


MAIN 


READP 


408C 




PNT 


READC 


406E 




CALL 


ENT 


4135 




LIBF 


COMGO 


4154 


404A 


CALL 


AIP 


41A6 




LIBF 


MWRT 


435C 


404D 


LIBF 


MIDI 


4412 


4050 


LIBF 


MCOMP 


43E9 


4053 


CALL 


TIMER 


480E 




CALL 


QUEUE 


4864 




PNT 


CALCC 


407 2 




PNT 


SHOWC 


4076 




CALL 


ENDTS 


4926 




LIBF 


SUBIN 


4930 


4056 


CALL 


OZOIO 


496A 




CALL 


OZERQ 


49BE 




LIBF 


AIPTN 


49CC 


4059 


LIBF 


IOU 


4A4E 


405C 


CALL 


IOFIX 


4B06 




CALL 


BT1BT 


4B36 




CALL 


SAVE 


4AA2 




LIBF 


ADRCK 


4B9A 


405F 


LIBF 


FLOAT 


4BEC 


4062 


LIBF 


IFIX 


4C08 


4065 


CALL 


GAGED 


4C34 




CALL 


UNGAG 


4C45 




CALL 


AN I NT 


4C54 




LIBF 


NORM 


4090 


4068 


CORE 




4DBE 


1242 



CLB, READC LD XQ 

45 CORELOADS NOT FOUND 

CALCC SHOWC 

OUP FUNCTION COMPLETED 



// JOB 

// FOR CALCP 

*LIST ALL 

*IOCS (1443PRINTER) 



DIMENSION N(51) 

COMMON/ INSKEL/J1,J2,J3, I CNT,N 

CALL ENT(1,4) 

WRITE (3,6) J1.J2.J3 

FORMAT (' READINGS',3110) 

N(1)«J1 

N(26)=J2 

N(51)*J3 

DO 4 1*2,25 

N(I)=N(1)+((N(26)-N(l,i/25)*(I-1> 

DO 5 1=27,50 

N(I )=N<51) + ( (N(26)-N(51) ) /25 ) *< 51- I ) 

WRITE (3,7) (N(I), 1-1,51) 

FORMAT (12110) 

CALL ENT(2,4) 

CALL VIAO 

END 



VARIABLE ALLOCATIONS 
Jl =FFFF* J2 -FFFE* J3 

STATEMENT ALLOCATIONS 
6 *0OOE 7 =0017 4 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 



"FFFD* ICNT -FFFC* N 
=>003E 5 -006A 



=FFFB* I 



= 0.002 



CALLED SUBPROGRAMS 
ENT VIAO ISTOX 



MWRT 



MCOMP MIOIX MIDI 



SUBSC PRNTN EBPRT 
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INTEGER CONSTANTS 

1=0006 4=0007 3=0008 2=0009 



CORE REQUIREMENTS FOR CALCP 
COMMON INSKEL COMMON 



56 VARIABLES 



25=000A 27=000B 
6 PROGRAM 170 



50=000C 



51=000D 



END OF COMPILATION 



CALCP 

DUP FUNCTION COMPLETED 

// DUP 

*STORECIM M CALCC CALCP COLDC 

*CCEND 

CLB, BUILD CALCC 

CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


4002 


OOOC 


*IBT 


TABLE 


400E 


001D 


*FIO 


TABLE 


402B 


0010 


*ETV 


TABLE 


403B 


OOOF 


*VTV 


TABLE 


404A 


0027 


*-IST 


TABLE 


4071 


0036 


*PNT 


TABLE 


40A8 


0008 


MAIN 


CALCP 


40CA 




PNT 


CALCC 


40AA 




PNT 


COLDC 


40AE 




CALL 


ENT 


417D 




LIBF 


MWRT 


4326 


404A 


LIBF 


MIOI 


43DC 


4040 


LIBF 


MCOMP 


43B3 


4050 


LIBF 


ISTOX 


47D8 


4053 


LIBF 


SUBSC 


47F8 


4056 


LIBF 


MIOIX 


43E8 


4059 


CALL 


VIAQ 


4824 




LIBF 


SUBIN 


4884 


405C 


LIBF 


COMGO 


48BE 


405F 


LIBF 


IOU 


4910 


4062 


CALL 


IOFIX 


49C8 




CALL 


BT1BT 


49F8 




CALL 


SAVE 


4964 




LIBF 


ADRCK 


4A5C 


4065 


LIBF 


FLOAT 


4AAE 


4068 


LIBF 


IFIX 


4ACA 


406B 


LIBF 


NORM 


4AF6 


406E 


CORE 




4B24 


34DC 



CLB, CALCC LD XO 
DUP FUNCTION COMPLETED 



// JOB 

// FOR SHOWP 

*IOCS (1443PRINTER) 

*LIST ALL 



DIMENSION N(51),M(51) ,L(120) 
COMMON/ INSKEL/ 1 1,1 2, 1 3, 1 CNT,N 
CALL ENT(1,5) 
DO 2 IK=1,120 

2 L( IK)=0 

DO 3 1=1,51 
MI=N(I)/300 

3 M(I )=IABS(MI ) 
DO 4 J=l,51 
K=M(J)/2 

4 WRITE (3,100) J,(L(I) ,I=1,K) 
100 FORMAT (13, IX, 5812) 

CALL ENT (2,5) 
CALL VIAO 
END 



VARIABLE ALLOCATIONS 
II =FFFF* 12 =FFFE* 13 
J =00AE K =00AF 



=FFFD* ICNT =FFFC* N 



=FFFB* M 



■0032 



=00AA IK 



=00AB I 



=00AC MI 
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STATEMENT ALLOCATIONS 
100 «00BA 2 = 00C7 3 =00E9 4 =0109 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
ENT IABS VIAQ ISTOX MWRT MCOMP MIOIX MIOI SUBSC PRNTN EBPRT 

INTEGER CONSTANTS 

1=0062 5-00B3 120=0084 0=00B5 51*00B6 300=00B7 2=OOB8 3=00B9 

CORE REQUIREMENTS FOR SHOWP 
COMMON INSKEL COMMON 56 VARIABLES 178 PROGRAM 128 

END OF COMPILATION 



SHOWP 

DUP FUNCTION COMPLETED 

// DUP 

*STORECIM M SHOWC SHOWP COLDC 

*CCEND 

CLB, BUILD SHOWC 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


4002 


OOOC 


*IBT 


TABLE 


400E 


001D 


*FIO 


TABLE 


402B 


0010 


*ETV 


TABLE 


403B 


OOOF 


*VTV 


TABLE 


404A 


0027 


*IST 


TABLE 


4071 


0036 


*PNT 


TABLE 


40A8 


0008 


MAIN 


SHOWP 


416F 




PNT 


SHOWC 


40AA 




PNT 


COLDC 


40AE 




CALL 


IE NT 


41FF 




LIBF 


SUBSC 


421E 


404A 


LIBF 


ISTOX 


424A 


404D 


CALL 


IABS 


426A 




LIBF 


MWRT 


440E 


4050 


LIBF 


MIOI 


44C4 


4053 


LIBF 


MIOIX 


44D0 


4056 


LIBF 


MCOMP 


449B 


4059 


CALL 


VIAQ 


48C0 




LIBF 


SUB IN 


4920 


405C 


LIBF 


COMGO 


495A 


405F 


LIBF 


ADRCK 


49AC 


4062 


LIBF 


IOU 


49FE 


4065 


CALL 


IOF IX 


4AB6 




CALL 


BT1BT 


4AE6 




CALL 


SAVE 


4A52 




LI8F 


FLOAT 


4B4A 


4068 


LI6F 


[FIX 


4B66 


406B 


LIBF 


NORM 


4B92 


406E 


CORE 




4BC0 


3440 


CLB, 


SHOWC 


LD XO 




DUP FUNCTION COMPLETED 


*OUMPLET F 







FLET 



PACK LABEL 
00000 



.FIOS 001B 
DUMMY 0092 
READC ODBC 
.SKEL 0038 



03A0 
0488 
049E 
05E0 



/EPDM 7FFF 
DUMIN 005A 
CALCC 0B22 
•EPRG 0022 



03BB 
0489 
04A9 
0616 



/EPSV 0780 
NONPR OOFO 
SHOWC OBBE 
/CLST 0780 



0422 
048A 
0482 
063A 



/INSV 2280 
NP 0098 
9DUMY OOBC 
•E OOFO 



0428 
048B 
04BC 
0488 



/NPSV 4000 0444 
COLDC 0A8C 048C 
/SPSV 4000 0578 



.MESS 0010 0478 
WAITC 0A28 0495 
/PRSV 4000 05AC 



DUP FUNCTION COMPLETED 
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ENTERED C/L 1 EFTA 

EXITED C/L 1 EFTA 

ENTERED C/L 2 EFTA 

EXITED C/L 2 EFTA 



// JOB 

// XEQ NPJOB 

*CCEND 



Time-Sharing begin* her*. 



CLB, BUILD NPJOB 



ENTERED C/L 3 
ICNT= 1 

EXITED C/L 3 

ENTERED C/L 3 
ICNT= 2 

EXITED C/L 3 
CLB, NPJOB LD XO 



EFTA 



EFTA 
EFTA 



EFTA 



Interrupt core load on level 07 takes precedence over 
nonprocess job. Programmed Interrupt level 07 
Initiated from in-tkeleton timer routine called SCAN. 



During time-sharing, a nonprocess job is executed and 
prints out a partem of numbers in an increasing order 
of magnitude, as shown. This list of numbers is 
interrupted by core loads (mainline process or inter- 
rupt process) at a higher level. 



C/L 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
20 
ENTERED C/L 
ICNT= 3 
EXITED 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



EFTA 



EFTA 



Third entry of core load READC calls end time-sharing 
Time-sharing terminates the next time timer C interrupts. 



ENTERED 
READINGS 
9000 

10440 

11880 

13320 

14760 
EXITED 
ENTERED 
ENTERED 
ICNT* 1 
EXITED 

1 

2 

3 

4 

5 



C/L 4 

9000 

9120 

10560 

12000 

13440 

14880 

C/L 4 



C/L 
C/L 



C/L 





EFTA 
12000 
9240 
10680 
12120 
13560 
15000 

EFTA 

EFTA 

EFTA 











15000 
9360 
10800 
12240 
13680 



Core load 4 is executed from the QUEUE. 



9480 
10920 
12360 
13800 



9600 
11040 
12480 
13920 



9720 
11160 
12600 
14040 



9840 
11280 
12720 
14160 



9960 
11400 
12840 
14280 



10080 
11520 
12960 
14400 



10200 
11640 
13080 
14520 



10320 
11760 
13200 
14640 



EFTA 













Core load 5 is executed from the QUEUE. 



Core load 5 (SHOWC) prints histogram. 
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ENTERED C/L 


3 




EFTA 
























ICNT= 2 












































EXITED 


C/L 


3 




EFTA 
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EXITED 


C/L 


5 




EFTA 
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ENTERED C/L 




3 




EFTA 
























ICNT = 3 












































EXITED 


C/L 


3 




EFTA 
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During the printing of the histogram, interrupt core load 
READC is brought into core and executed. 



The cycle of events repeats itself. 
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USE OF THE OPERATIONS MONITOR 

The Operations Monitor is an optional watch- dog type 
timer device which warns the user when the proces- 
sor-controller is not executing a predicted sequence 
of instructions. This may be caused by power fail- 
ure, computer hang-up, or computer looping. 

The watch-dog timer works on the principle that 
a contact closes upon completion of a preset time- 
out period. When this occurs, a separately-powered 
alarm or indicator (supplied by the user) is brought 
into play. The time-out period is settable within the 
range 5-30 seconds. Note that the time interval 
selected must be greater than the secondary time 
base specified by the Interval Timer Control (ITC) 
program. 

The user may also exercise the option of manual 
or automatic reset of the Operations Monitor. This 
option is specified in the OPMON equate card at 
system generation time (see System Design Consid- 
erations; System Director ). Automatic resetting 
is undertaken by ITC during time-sharing operations. 
If the Operations Monitor is used, it is the user's 
responsibility to ensure that a reset (XIO) instruc- 
tion is executed frequently enough in his program so 
as to prevent timeout during normal operation. If 
the reset command is not given during the selected 
interval, timeout occurs and the alarm circuit is 
closed. 

The Call Operations Monitor subroutine is used 
to reset the monitor. Its format is: 

CALL OPMON 

Consider the following example. A particular 
program (say, a logging program) has been designed 
for execution every 15 seconds, and therefore ideally 
suited for Operations Monitor reset. If the program 
is not, for some reason, executed within this allowed 
time span, the Operations Monitor is set, causing an 
alarm in the warning device the user has attached to 
the Operations Monitor. 



ERROR ALERT CONTROL 

Error procedures in the IBM 1800 Time-Sharing 
Executive System are provided by a program pack- 
age called the Error Alert Control (EAC) Program 
which is designed to analyze errors that are: 

1. Basic to the hardware, and 

2. which may result from incorrect use of soft- 
ware programs. 



Since errors affect all real-time systems, from 
the largest to the smallest, the policy adopted 
towards all errors is to keep the system on-line if 
at all possible, and to minimize operator decisions. 



Features of EAC 



Error Conditions Serviced 

The Error Alert Control program provides error 
recovery for the following conditions: 

• An input/output error which persists despite 
repeated corrective action by an I/O subroutine. 

• Occurrence of an internal machine error (e.g. , 
invalid operation code, parity, storage protect 
violation) 

• Other control subroutine error conditions (e.g. , 
QUEUE, FORTRAN I/O) 

Error Analysis Provisions 

Provision is also made for the following features. 

Dump of Core Storage to Disk. An optional dump of 
all core storage to disk is provided if this option is 
elected through the System Director equate card 
DUMP1 at system generation time. If, for example, 
DUMP1 is equated to 1, the DUMP routine is included 
(at System Director assembly time) with the EAC 
program package. This feature is only applicable to 
subroutine type errors. 

The DUMP routine writes core into the EDP 
DUMP AREA on disk. Since permanent core may be 
storage protected, and the disk routine must insert 
the sector address at the start of each sector to be 
written, the dump routine moves blocks of six sec- 
tors of permanent core to variable core and copies 
it to disk. After all of permanent core has been 
copied, that portion of variable core used is re- 
stored. 

The copied data on disk can now be dumped to an 
output device by the DUP *DUMP function. 

User Error Subroutine. In a process program, EAC 
branches to a user-written error subroutine if this 
is included with the mainline core load. This action 
is bypassed for internal machine errors, if an 
error subroutine is not included and if a nonprocess 
program is in core. 
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A user-written error subroutine can be optionally 
included with each process core load. The purpose 
of this subroutine is to allow the user to have con- 
trol before EAC overlays the variable area with the 
disk portion of EAC. For example, there may be 
special data or other information that the user wants 
to save. Output, such as special core dumps, mes- 
sages, or contact operate functions, can also be 
executed. The error subroutine cannot be written 
in FORTRAN language. 

Before entering the user's error subroutine, 
error identification data is placed in words 00115- 
00119. These words will contain the following: 

Input/Output Errors 



00115 


Error type code 


00116 


Address of illegal call or 




address of the device table 


00117 


Address of level work area 


00118 


Address of originating call 


Queue Overflow 




00115 


Error type code 


00116 


Word count of core load 




named in CALL QUEUE 


00117 


Sector address of core load 




named in CALL QUEUE 


00118 


Priority of core load named. 




in CALL QUEUE 


00119 


Error parameter of core 




load named in CALL QUEUE 



The meaning of on-line EAC error type codes is 
given in Table 3. Table 4 contains a description of 
all on-line errors serviced by EAC, the format of 
each EAC message printout, and corrective action 
specifications. 

A standard recovery procedure is executed by 
EAC according to the type of error (see Table 4). 
User options are specified in the same table (see 
USER OPTION column). However, under certain 
conditions, EAC overrides the user option. The 
EAC option is always executed if an error subrou- 
tine is not used or the user does not specify an op- 
tion. Options can be specified by the user before 
returning to EAC by loading the A-register with -10 
for S (RESTART) or -1 for I & R (CONTINUE). 

The last logical statement in the error subroutine 
must be a BSC I entry to the error subroutine. 

The core load named for the restart option can be 
an error analysis core load, or it can be the first of 
a new series of core loads. If queueing techniques 



are used, the restart core load can be simply a 
CALL VIAQ statement (CALL QUEUE can be exe- 
cuted in the restart core load or the error subrou- 
tine) . 

The statements listed below cannot be used in an 
error subroutine: 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



BACK 

CHAIN 

DPART 

ENDTS 

EXIT 

INTEX 

LEVEL 

LINK 

MASK 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



QIFON 

RESMK 

SAVMK 

SHARE 

SPECL 

UNMK 

VIAQ 



Update Error Counters Maintained on Disk . For 
each I/O unit on the system, a hardware counter is 
maintained on the disk for printout to the Customer 
Engineer for maintenance purposes. 

Back-up Capability for D. P. I/O Units. The option 
of including backup units for the 1053 and the 1816, 
as well as the logical removal of the 1443 from 
service, can be specified at system generation time. 
If backup is not provided, the 1053 printer will be 
automatically removed from service when multiple 
failures occur without taking the system ojEf-line. 

Backup for the EAC printer is achieved by defin- 
ing multiple EAC printers at TASK assembly time 
(if the EAC printer is defined as a 1053) . When an 
output error occurs, or if the unit is not ready 
(that is, interrupt response is not receive*:!), EAC 
will logically disconnect the unit in error and substi- 
tute the backup unit. When backup is initiated be- 
cause of a hardware malfunction, the mesisage in 
progress on the failing unit is not continued on the 
backup device. When the error condition Is cor- 
rected, the unit can be restored to its original 
status by using the C. E. Interrupt routine . See 
C. E. Interrupt Routine in the publication IBM 1800 
Time-Sharing Executive System, Operatin g Proce- 
dures, Form C26-3754. 

EAC Program Breakdown 

EAC can be considered in terms of four component 
parts; each component functions as a separate sub- 
program, the four parts remaining interdependent 
insofar as the status information of the error (de- 
tected) is shared by all routines concerned. In 
addition, EAC sets up a level work area for the use 
of reentrant coded programs when it is processing 
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Table 3. On-Line EAC Error Type Codes 



EAC MESSAGE FORMAT 




*INN CL.OCK AC-M PNAME LOCN 


* _ 


INDICATES PROCESS CORELOAD IN CORE 


BLANK - INDICATES NON-PROCESS CORELOAD IN CORE 


1 - 


GENERAL I/O 


P - 


PROCESS I/O 


F - 


FORTRAN 


Q - 


QUEUE 


M - 


MASK 


X - 


MISCELLANEOUS 


NN 


- TWO DIGIT NUMBER INDICATING TYPE OF ERROR 


CL.OCK - TIME IN THOUSANDTHS OF AN HOUR 


AC ■ 


- AREA CODE FOR THE ASSOCIATED I/O DEVICE 


M - 


- MODIFIER IF MORE THAN ONE FOR THAT AREA CODE 


PNAME - NAME OF THE PROGRAM IN CORE AT THE TIME OF 




THE MESSAGE (NOT NECESSARILY THE ONE WHICH 




ORIGINATED THE CALL LEADING TO THE ERROR 




CONDITION) 


LOCN - LOCATION OF THE CALL 


USER ERROR TYPE CODES FOR DP I/O 


101 


PARITY 


102 


STORAGE PROTECT 


103 


ILLEGAL CALL 


104 


NOT READY 


105 


//BLANK CARD 


106 


FEED CHECK 


107 


READ-PUNCH CHECK 


108 


DATA OVERRUN 


109 


WRITE SELECT 


110 


NO PRINT RESPONSE 


111 


DATA ERROR 


112 


INVALID MESSAGE ON DISK 


113 


FILE PROTECT ERROR 


114 


TAPE ERROR 


115 


EXCESSIVE TAPE ERRORS 


116 


END OF TAPE 


117 


INVALID CALL TO ERROR ROUTINE 


118 


NO RESPONSE FROM DISK 


119 


INVALID DISK ADDRESS 




USER ERROR TYPE CODES FOR PROCESS I/O 


P01 


PARITY DATA OR COMMAND REJECT 


P02 


STORAGE PROTECT VIOLATION 


P03 


ILLEGAL CALL 


P04 


PARITY CONTROL 


P05 


OVERLAP CONFLICT 


P17 


INVALID ERROR CODE 




USER ERROR TYPE CODES FOR QUEUING 


Q01 


ERROR OPTION IS ZERO - CALL IGNORED 


Q02 


ERROR OPTION NOT ZERO - 




NO LOWER PRIORITY IN QUEUE 


Q03 


QUEUE ENTRY REPLACED BY NEW CALL QUEUE 


Q04 


QUEUE CALL NOT HONORED - 




RESTART INITIATED 


Q17 


INVALID ERROR CODE 




USER ERROR TYPE CODES FOR FORTRAN 


F90 


ILLEGAL ADDR COMPUTED IN AN INDEXED STORE 


F91 


ILLEGAL INT USED IN A COMPUTED GO TO 



USER ERROR TYPE CODES FOR FORTRAN (CONTINUED) 



F92 
F93 



F94 
F95 
F96 
F97 
F98 
F99 

F17 



F87 
F88 
F89 



M01 
M02 
M17 



X01 
X02 
X03 
X04 
X17 



DISK I/O 

FILE NOT DEFINED 
RECORD TOO LARGE. 



ZERO OR NEGATIVE 



NON-DISK I/O 

INPUT RECORD IS IN ERROR 

RANGE OF NUMERICAL VALUES IS IN ERROR 

OUTPUT FIELD TOO SMALL TO CONTAIN THE NUMBERS 

ILLEGAL UNIT REFERENCE 

REQUESTED RECORD EXCEEDS ALLOCATED BUFFER 

WORKING STORAGE AREA INSUFFICIENT FOR 

DEFINED FILES 

INVALID ERROR CODE 



UNEDITED I/O 

ILLEGAL UNIT REFERENCE 

READ LIST EXCEEDS LENGTH OF WRITE LIST 

RECORD DOES NOT EXIST FOR READ LIST 

ELEMENT 



USER ERROR TYPE CODES FOR MASK ROUTINES 



ILLEGAL CALL RESMK 
ILLEGAL CALL UNMK 
INVALID ERROR CODE 



USER ERROR TYPE CODES FOR PROGRAM 
SEQUENCE CONTROL 

ILLEGAL CALL BACK 
INTERRUPT LEVEL ERROR 
CORELOAD NOT LOADED ON DISK 
RESTART CORELOAD NOT LOADED ON DISK 
INVALID ERROR CODE 
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Table 4. On-Line EAC Errors and Recovery Procedures 



ERROR 

CODE 

DEC HEX 


TYPE 

CODE 

EAC 


EAC 

STAND. 

EXIT 


USER 
OPTION 


1053/1816 PRINTER/KEYBOARD 


S 




00 


00 


103 


N 


01 


01 


104 


R,S 


S* 


03 


03 


104 


R,S 


R,S 


04 


04 


102 


L 


N 


05 


05 


101 


S 


R 


06 


06 


101 


1 


N* 


07 


07 


110 


R 


N* 


08 


08 


112 


R 


N 



ERROR MESSAGE 
AND COMMENTS 



1442 CARD READ-PUNCH 



10 


0A 


103 


S 


11 

12 


0B 
OC 


101 


R 


13 


0D 


102 


L 


14 


0E 


106 


R 


15 


OF 


108 




16 


10 


107 


R 


17 


11 


105 


S 


19 


13 


104 


R 



1054/1055 PAPER TAPE READER/PUNCH 



20 


14 


103 


S 


21 


15 


101 


S 


22 


16 


104 


R,S 


23 


17 


104 


R,S 



ILLEGAL CALL 

103 CL.OCK PNAME LOCN 1053 
USER MUST CORRECT CALL IN PROGRAM 
1053 NOT READY 

104 CL.OCK AC-M PNAME 1053 NOT READY 
CHECK FORMS 

1816 KEYBOARD NOT READY 

104 CL.OCK AC-M PNAME 1816 NOT READY 
MAKE READY 
STORAGE PROTECT VIOLATION FROM 1816 

102 CL.OCK AC-M PNAME 0000 
USER MUST CHECK PROGRAM 
KEYBOARD PARITY ERROR 

101 CL.OCK AC-M PNAME 1816 PARITY 
LAST CHARACTER TYPED MAY BE INVALID 
PRINTER PARITY ERROR 

101 CL.OCK AC-M PNAME 1053 PARITY 
AN ATTEMPT TO PRINT HAS BEEN MADE 2 TIMES 
NO PRINT RESPONSE 

101 CL.OCK AC-M PNAME NO PRINT RESP 
NO OP COMPLETE HAS BEEN RECEIVED 
INVALID MESSAGE ON DISK 

112 CL.OCK AC-M PNAME 
THIS MESSAGE IS NOW LOST 



ILLEGAL CALL TO 1442 

103 CL.OCK PNAME LOCN 1442 
USER MUST CORRECT CALL IN PROGRAM 
LAST CARD 

PARITYERROR 

101 CL.OCK AC PNAME 0000 1442 PARITY 
NON-PROCESS RUN OUT, RELOAD UN-READ CARDS 
STORAGE PROTECT VIOLATION 

102 CL.OCK AC PNAME 0000 
USER MUST CHECK PROGRAM 
FEED CHECK 

106 CL.OCK AC PNAME 1442 NOT READY 
NON-PROCESS RUN OUT, RELOAD UN-READ CARDS 
DATA OVERRUN 

108 CL.OCK AC PNAME 0000 1442 NOT READY 
NON-PROCESS RUN OUT, RELOAD UN-READ CARDS 
READ-PUNCH CHECK 

107 CL.OCK AC PNAME 1442 NOT READY 
NON-PROCESS RUN OUT, RELOAD UN-READ CARDS 
//BLANK CARD 

105 CL.OCK AC PNAME 0000 
CONTROL CARD ENCOUNTERED - CHECK DECK 
1442 NOT READY 

104 CL.OCK AC PNAME 1442 NOT READY 
PRESS START ON UNIT 



ILLEGAL CALL 

103 CL.OCK PNAME LOCN 1054 
USER MUST CORRECT CALL IN PROGRAM 
PUNCH PARITY ERROR 

101 CL.OCK AC PNAME 0000 1055 PARITY 
LAST CHARACTER OUT MAY BE INVALID 
READER NOT READY 

104 CL.OCK AC PNAME 1054 NOT READY 
MAKE READY 

PUNCH NOT READY 

104 CL.OCK AC PNAME 1055 NOT READY 
MAKE READY 



LEGEND FOR EAC STANDARD EXIT AND USER OPTION: 

I - CONTINUE AT THE POINT OF INTERRUPT 

R - RETURN TO THE ROUTINE WHICH DETECTED THE ERROR 

S - RESTART 

L - RELOAD 

N - NO OPTION - MUST TAKE EAC EXIT 

* - INTERNAL BACKUP ATTEMPTED 
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Table 4. On-Line EAC Errors and Recovery Procedures 



ERROR 

CODE 

DEC HEX 



TYPE 

CODE 

EAC 



EAC 

STAND. 

EXIT 



USER 
OPTION 



ERROR MESSAGE 
AND COMMENTS 



1054/1055 PAPER TAPE READER/PUNCH (Cont'd) 
24 18 101 S I 



25 19 



102 



L 



N 



2310 DISK 










30 


IE 


103 


S 


N 


31 


IF 


104 


R 


S 


32 


20 


108 


S 


1 


33 


21 


109 


S 


1 


34 


22 


111 


S 


1 


35 


23 


102 


L 


N 


36 


24 


101 


S 


1 


37 


25 


119 


S 


N 


38 


26 


113 


S 


N 


39 


27 


118 


S 


N 



1627 PLOTTER 










41 


29 


101 


S 


1 


42 


2A 


104 


R,S 


S 



1443 PRINTER 










50 


32 


103 


S 


N 


53 


35 


110 


R,S 


R,S 


54 


36 


101 


S,l 


1 


55 


37 


104 


R,S 


R,S 



READER PARITY ERROR 

(OICL.OCK AC PNAME 0000 1054 PARITY 
LAST CHARACTER READ IN MAY BE IN ERROR 
READER STORAGE PROTECT 

I02CL.OCK AC PNAME 0000 
USER MUST CHECK HIS PROGRAM FOR ERROR(S) 



ILLEGAL CALL 

103 CL.OCK PNAME LOCN 2310 
USER MUST CORRECT CALLING SEQUENCE 
DISK NOT READY 

104 CL.OCK AC PNAME 2310 NOT READY 
MAKE READY 

DATA OVERRUN 

108 CL.OCK AC PNAME 0000 2310 HARDWARE ERROR 
INVALID DATA FROM DISK AFTER 10 TRIES 

WRITE SELECT 

109 CL.OCK AC PNAME 0000 2310 HARDWARE ERROR 
STOP DISK AND START AGAIN TO RESET 

DATA ERROR 

II 1 CL.OCK AC PNAME 0000 2310 HARDWARE ERROR 
EXCESSIVE WD CT FOR SECTOR OR MODULO 4 ERROR 
STORAGE PROTECT ERROR 

102 CL.OCK AC PNAME 0000 
USER MUST CHECK HIS PROGRAM FOR ERROR(S) 
PARITY ERROR 

101 CL.OCK AC PNAME 0000 2310 HARDWARE ERROR 
ERROR PERSISTS AFTER 10 TRIES 
INVALID DISK ADDRESS 

119 CL.OCK AC PNAME 0000 
INVALID ADDRESS OR UNEXPECTED HOME BIT ON 
FILE PROTECT ERROR 

113 CL.OCK AC PNAME 0000 
USER TRIED WRITING IN A FILE PROTECTED SECTOR 
NO RESPONSE 

118 CL.OCK AC PNAME 0000 2310 HARDWARE ERROR 
DID NOT RECEIVE OR LOST RESPONSE FROM DISK 



PARITY ERROR 

101 CL.OCK AC PNAME 0000 1627 PARITY 
NO ATTEMPT IS MADE TO REPLOT THE POINT 
NOT READY 

104 CL.OCK AC PNAME 1627 NOT READY 
MAKE READY 



ILLEGAL CALL 

103 CL.OCK PNAME LOCN 1443 
USER MUST CORRECT CALL IN PROGRAM 
NO PRINT RESPONSE 

110 CL.OCK AC PNAME 1443 NOT READY 
PUSH START ON THE PRINTER 
PARITY ERROR 

101 CL.OCK AC PNAME 0000 1443 PARITY 
NO ATTEMPT IS MADE TO REPRINT THE LINE 
NOT READY 

104 CL.OCK AC PNAME 1443 NOT READY 
PUSH RESET AFTER CORRECTING PRINTER ERROR THEN 

PUSH START 



LEGEND FOR EAC STANDARD EXIT AND USER OPTION: 

I -CONTINUE AT THE POINT OF INTERRUPT 

R - RETURN TO THE ROUTINE WHICH DETECTED THE ERROR 

S - RESTART 

L - RELOAD 

N - NO OPTION - MUST TAKE EAC EXIT 

* - INTERNAL BACKUP ATTEMPTED 



(Continued) 



Functions of Executive Programs 63 



Table 4. On-Line EAC Errors and Recovery Procedures 



ERROR 

CODE 

DEC HEX 



TYPE 

CODE 

EAC 



EAC 

STAND. 

EXIT 



USER 
OPTION 



ERROR MESSAGE 
AND COMMENTS 



ANALOG INPUT BASIC 



60 


3C 


P03 


S 


61 


3D 


P02 


L 


62 


3E 


P04 


S 


63 


3F 


P01 


S 


64 


40 


P05 


S 


65 


41 




S 


66-68 




P17 


S 



DIGITAL INPUT BASIC 



DIGITAL AND ANALOG OUTPUT BASIC 



80 50 P03 S 

81 51 P01 S 

82 52 S 

83-89 

P17 S 



2402 MAG TAPE 



90 5A 103 



91 

92 5C 102 



70 46 


P03 


S 


N 


71 47 


P01 


S 


N 


72 48 


P02 


L 


N 


73 49 




S 


N 


74-79 


PI 7 


S 


N 



ILLEGAL CALL 

P03CL.OCK PNAME LOCN AIN 
ILLEGAL CALL SEQUENCE IN PROGRAM 
STORAGE PROTECT VIOLATION 

P02 CLOCK AC PNAME 0000 AIN 
WRITE INTO MEMORY PROTECTED LOCN ATTEMPTED 
PARITY CONTROL ERROR 

P04CL.OCK AC PNAME 0000 AIN 
PARITY ERROR ON DATA OR CONTROL CYCLE 
PARITY DATA ERROR 

P01 CL.OCK AC PNAME 0000 AIN 
PARITY ERROR DURING TRANSMISSION 
OVERLAP CONFLICT 

P05 CL.OCK AC PNAME 0000 AIN 
RELAY POINTS IN RANDOM READ FUNCTION TOO CLOSE 
TOGETHER 

INTERMEDIATE INTERRUPT 

DATA TRANSFER COMPLETED DURING CHAIN OPERATION 
NOT USED 
INVALID ERROR CODE 

P17 CL.OCK PNAME AIN 
INVALID ERROR CODE FROM EAC 



ILLEGAL CALL 

P03 CL.OCK PNAME LOCN DIN 
ILLEGAL CALL SEQUENCE IN PROGRAM 
PARITY ERROR OR COMMAND REJECT 

P01 CL.OCK AC PNAME 0000 DIN 
DATA TRANSMITTED INCORRECTLY OR ILL. REQUEST 
STORAGE PROTECT ERROR 

P02 CL.OCK AC PNAME 0000 DIN 
WRITE OPERATION TRIED IN MEMORY PROTECTED LOCN 
INTERMEDIATE INTERRUPT 

DATA TRANSFER COMPLETED DURING CHAIN OPERATION 
NOT USED 
INVALID ERROR CODE 

P17 CL.OCK PNAME DIN 
INVALID ERROR CODE FROM EAC 



ILLEGAL CALL 

P03 CL.OCK PNAME LOCN DAO 
ILLEGAL CALLING SEQUENCE IN PROGRAM 
PARITY ERROR OR COMMAND REJECT 

P01 CL.OCK AC PNAME 0000 DAO 
DATA TRANSMITTED INCORRECTLY OR ILL. REQUEST 
INTERMEDIATE INTERRUPT 

DATA TRANSFER COMPLETED DURING CHAIN OPERATION 
NOT USED 
INVALID ERROR CODE 

P17 CL.OCK PNAME DAO 
INVALID ERROR CODE FROM EAC 



ILLEGAL CALL 

103 CL.OCK PNAME LOCN 2402 
ILLEGAL CALL SEQUENCE IN PROGRAM 
NOT USED 
STORAGE PROTECT VIOLATION 

102 CL.OCK AC PNAME 0000 2402 
WRITE INTO MEMORY PROTECTED LOCN ATTEMPTED 



LEGEND FOR EAC STANDARD EXIT AND USER OPTION: 

I - CONTINUE AT THE POINT OF INTERRUPT 

R - RETURN TO THE ROUTINE WHICH DETECTED THE ERROR 

S - RESTART 

L - RELOAD 

N - NO OPTION - MUST TAKE EAC EXIT 

* - INTERNAL BACKUP ATTEMPTED 



(Continued) 
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Table 4. On-line EAC Errors and Recovery Procedures 



ERROR 


TYPE 


EAC 


USER 




ERROR MESSAGE 


CODE 


CODE 


STAND. 


OPTION 


AND COMMENTS 


DEC 


HEX 


EAC 


EXIT 








2402 MAG TAPE (Cont'd) 


S 


R 


COMMAND REJECT 


93 


5D 


113 












113 CL.OCK AC PNAME 0000 2402-COMMAND RE J 












ILL MT OPERATION REQUESTED. USER CHECK PROGRAM 


94 


5E 


115 


s 


R 


EXCESSIVE TAPE ERRORS 

115 CL.OCK AC PNAME 0000 2402-EXCESS ERR 
TOO MANY FAILS ON THIS REEL. MOUNT NEW REEL 


95 


5F 


114 


R 


S 


TAPE ERROR 

114 CL.OCK AC PNAME 0000 2402-TAPE ERR DSW 
DSW- DEVICE STATUS WORD 
PARITY ERROR OR OTHER FAIL CONDITION 
AFTER 100 READ ATTEMPTS OR 3 WRITE ATTEMPTS 


96-97 










NOT USED 


98 


62 


104 


R,S 


S 


NOT READY 

104 CL.OCK AC-M PNAME 2402-NOT READY 
MAKE READY 


99 


63 


116 
117 


R 


S 


END OF TAPE 

116 CL.OCK AC PNAME 0000 2402-END OF TAPE 
OPERATION ATTEMPTED PAST END OF TAPE 
INVALID ERROR CODE 

117 CL.OCK PNAME MAG 
INVALID ERROR CODE FROM EAC 


FORTRAN 


64 


F90 


S 


N 


ILLEGAL ADDR COMPUTED IN AN INDEXED STORE 


100 












SUBSCRIPTED VALUE OUTSIDE LIMITS OF ARRAY 












F90 CL.OCK PNAME LOCN 


101 


65 


F91 


S 


N 


ILLEGAL INTEGER VALUE IN COMPUTED GO TO 
F91 CL.OCK PNAME LOCN 

DISK I/O 


102 


66 


F92 


S 


N 


FILE NOT DEFINED 

F92 CL.OCK PNAME LOCN 
FILE REQUESTED NOT DEFINED IN DEFINE FILE 

STATEMENT 


103 


67 


F93 


s 


N 


REQUESTED NO. OF RECORDS TOO LARGE, ZERO, OR 

NEGATIVE 
F93 CL.OCK PNAME LOCN 

NON-DISK I/O 


104 


68 


F94 


s 


N 


INPUT RECORD IN ERROR 

F94 CL.OCK PNAME LOCN 
ILLEGAL CHARACTER IN NUMERIC FIELD 

OR ILLEGAL CONVERSION 


105 


69 


F95 


s 


N 


RANGE OF NUMERICAL VALUES IS IN ERROR 

F95 CL.OCK PNAME LOCN 
FIXED OR FLOATING PT NUMBER OUTSIDE DEFINED 

LIMITS 


106 


6A 


F96 


R 


N 


REQUESTED OUTPUT FIELD TOO SMALL 
F96 CL.OCK PNAME LOCN 


107 


6B 


F97 


S 


N 


ILLEGAL UNIT REFERENCE 

F97 CL.OCK PNAME LOCN 
UNIT NOT DEFINED IN IOU TABLE OR IOCS CONTROL 

CARD 


108 


6C 


F98 


S 


N 


REQUESTED RECORD EXCEEDS ALLOCATED BUFFER 

F98 CL.OCK PNAME LOCN 
RECORD SIZE TOO LARGE 


109 


6D 


F99 
F17 


S 


N 


WORKING STORAGE AREA INSUFFICIENT 
FOR DEFINE FILES 

F99 CL.OCK PNAME LOCN 
INVALID ERROR CODE 

F17 CL.OCK PNAME FOR 
INVALID ERROR CODE FROM EAC 

UNFORMATED I/O 


150 


96 


F87 


S 


N 


ILLEGAL UNIT REFERENCE 

F87 CL.OCK PNAME LOCN 
UNIT NOT DEFINED IN IOU TABLE, ON IOCS 
CARD, OR FOR UNFORMATED I/O 



LEGEND FOR EAC STANDARD EXIT AND USER OPTION: 



I - CONTINUE AT THE POINT OF INTERRUPT 

R - RETURN TO THE ROUTINE WHICH DETECTED THE ERROR 

S - RESTART 

L - RELOAD 

N - NO OPTION - MUST TAKE EAC EXIT 

* - INTERNAL BACKUP ATTEMPTED 
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Table 4. On-Line EAC Ettots and Recovery Procedures 



ERROR 

CODE 

DEC HEX 



TYPE 

CODE 

EAC 



EAC 

STAND. 

EXIT 



USER 
OPTION 



ERROR MESSAGE 
AND COMMENTS 



FORTRAN (Cont'd) 

151 97 

152 98 



MISCELLANEOUS 



F88 



F89 



110 


6E 


X01 


S 


N 


111 


6F 


X03 


S 


N 


112 


70 


X04 
X17 


L 


N 


120 


78 


Q01 


S 


N 



120 78 Q02 

120 78 Q03 

120 78 Q04 

Q17 

130 82 M01 S 

131 83 M02 S 

M17 
140 8C X02 S 

X17 



READ LIST EXCEEDS LENGTH OF WRITE LIST 

F88CL.OCKPNAME LOCN 
LIST IN READ STATEMENT IS LONGER THAN 
LIST IN CORRESPONDING WRITE STATEMENT 
RECORD DOES NOT EXIST FOR 
READ LIST ELEMENT 

F89 CL.OCK PNAME LOCN 
LAST PHYSICAL RECORD OF LOGICAL RECORD 
HAS BEEN EXHAUSTED 



PSC CALL BACK ERROR 

X01 CL.OCK PNAME LOCN 
CALL BACK TRIED BEFORE CALL SPECIAL 
CORELOAD NOT LOADED ON DISK 

X03 CL.OCK PNAME COREN 
COREN - CORELOAD NOT LOADED 
RESTART CORELOAD NOT LOADED ON DISK 

X04 CL.OCK PNAME COREN 
COREN - CORELOAD NOT LOADED 
INVALID ERROR CODE 

XI 7 CL.OCK PNAME CLB 
INVALID ERROR CODE FROM EAC 
QUEUE CALL IGNORED 
ERROR OPTION ZERO 

Q01 CL.OCK WC SA P 

WC- 5 DIGIT WORD COUNT 
SA - 5 DIGIT SECTOR ADDRESS 
f - 5 DIGIT PRIORITY 
QUEUE CALL NOT HONORED-NO LOWER PRIORITY IN 
QUEUE 
ERR OPTION 1 TO 32766 

Q02 CL.OCK WC SA P 

QUEUE CALL HONORED-CALL ENTERED IN QUEUE 
ERR OPTION 1 TO 32766 

Q03 CL.OCK WC SA P 

REPLACES WC SA P 

QUEUE CALL NOT HONORED-RESTART INITIATED 
ERR OPTION 32767 

Q04 CL.OCK WC SA P 

INVALID ERROR CODE 

Q17 CL.OCK PNAME QUE 
INVALID ERROR CODE FROM EAC 
CALL RESMK ERROR 

M01 CL.OCK PNAME LOCN 
ATTEMPT TO UNMASK OUT OF CORE INTERRUPT LEVEL 
WHILE IN! AN OUT OF CORE INTERRUPT PROGRAM 
CALL UNMK ERROR 

M02 CL.OCK PNAME LOCN 
ATTEMPT TO UNMASK OUT OF CORE INTERRUPT LEVEL 
WHILE IN AN OUT OF CORE INTERRUPT PROGRAM 
INVALID ERROR CODE 

M17 CL.OCK PNAME MSK 

INVALID ERROR CODE FROM EAC 
INTERRUPT LEVEL ERROR 

X02 CL.OCK PNAME LOCN 
ATTEMPT TO CALL LEVEL UNDEFINED FOR SYSTEM 
INVALID ERROR CODE 

X17 CL.OCK PNAME LEV 
INVALID ERROR CODE FROM EAC 



LEGEND FOR EAC STANDARD EXIT AND USER OPTION: 

I - CONTINUE AT THE POINT OF INTERRUPT 

R - RETURN TO THE ROUTINE WHICH DETECTED THE ERROR 

S - RESTART 

L - RELOAD 

N - NO OPTION - MUST TAKE EAC EXIT 

* - INTERNAL BACKUP ATTEMPTED 
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Table 4. On-line EAC Errors and Recovery Procedures 



INTERNAL ERRORS 



CAR CHECK ERROR 

996 CL.OCK PNAME OPTION 

SKELETON - RELOAD 
VARIABLE - RESTART 

OP CODE VIOLATION 

997 CL.OCK PNAME OPTION 

SKELETON - RELOAD 
VARIABLE - RESTART 

STORAGE PROTECT VIOLATION 

998 CL.OCK PNAME OPTION 

SKELETON - RELOAD 
VARIABLE - RELOAD 

PARITY ERROR 

999 CL.OCK PNAME OPTION 

SKELETON - RELOAD 
VARIABLE - RESTART 

OPTION WILL BE RELOAD (IF ERROR IS IN 
SKELETON), RESTART (VARIABLE CORE - ABORT OF 
NONPROCESS JOB, OR USER'S RESTART CORE LOAD 
IF PROCESS), OR COLD START (REQUIRED IF EAC 
IS UNABLE TO RELOAD SYSTEM) 

MULTIPLE ENTRANCE TO EAC 
MLPT EAC 

AN ERROR HAS OCCURRED WHILE EAC WAS PROCESSING 
A PREVIOUS ERROR. MUST GO TO A COLD START. 

NORMALLY THIS ERROR INDICATES THAT THE 
SYSTEM DISK IS DOWN. THIS ERROR WILL ALSO 
OCCUR IF AN ERROR OCCURS IN EAC WHILE EAC 
IS ATTEMPTING TO PROCESS A SYSTEM ERROR. 



LEGEND FOR EAC STANDARD EXIT AND USER OPTION: 

I - CONTINUE AT THE POINT OF INTERRUPT 

R - RETURN TO THE ROUTINE WHICH DETECTED THE ERROR 

S - RESTART 

L -RELOAD 

N - NO OPTION - MUST TAKE EAC EXIT 

* - INTERNAL BACKUP ATTEMPTED 
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an error. Note that the user cannot call from his 
error subroutines any routine that utilizes more 
than 14 words of the subroutine work area (a portion 
of the level work area). This area is principally 
used for those calls to disk and output printers used 
by EAC. It may be increased in size if the user 
elects to remove this restriction. 

The EAC program is entered whenever an error 
occurs or a condition arises that calls for operator 
intervention. An error message is then given on the 
EAC printer and the program takes one of five pos- 
sible exits after proper analysis has determined 
which exit may be taken for the error in question. 
Where more than one exit pertains to a given error 
condition, the user has the option of specifying the 
exit desired from his (user) error subroutine. 

The four component parts are described below. 

EAC In- Core. The in-core component of EAC is an 
integral part of the System Director and resides in 
core storage at all times. Its main function is to 
channel one of the several possible types of errors 
to a specific entry such that information relating to 
this particular error is passed on correctly to the 
analysis section. It also saves the current machine 
status so that after an error has been processed, 
the exit routine can return the machine back to the 
user without loss of information. EAC in-core 
also has the ability to dump variable core to disk if 
this is specified by the user at System Director 
assembly time (see System Design Considerations: ; 
System Director ). This program! also determines 
conditions such as process or nonprocess mode, in- 
valid operation code, parity errors, and user error 
subroutine availability. 



Error Decision Subroutines. These subroutines re- 
side on disk at all times until called to main core 
by EDP to process a particular error. After the 
error processing has taken place, a decision is made 
on the type of recovery procedure required (e.g. , 
Continue processing, Restart, Reload). This infor- 
mation is then passed to the Exit component of EAC 
for execution. 

EAC Exit. This is the means by which a branch is 
made to the recovery exit prescribed by the Error 
Decision Subroutine. Note that there is no normal 
exit from EAC. 



Action of EAC When an Error Occurs 



Consider the train of events that takes place when an 
error occurs, as shown in the simplified block dia- 
gram, Figure 27. The error may be an Internal 
Machine Error, aC.E. Interrupt, or a Miscellaneous 
Subroutine Error which may be an error or condition 
requiring outside intervention. Depending on the 
type of error, one of three possible entries is made 
to EAC, as follows: 

Internal Errors: EACOO 

C.E. Interrupt: EAC01 

Miscellaneous Error: EAC02 

The explanatory paragraphs that follow are given in 
an alphabetic sequence which corresponds exactly to 
blocks within Figure 27. 

A. An Internal Machine Error may be the result of: 



Error Disk Program (EDP). EDP resides perma- 
nently on disk, except when it is called to core by 
the EAC in-core program. Once EDP is in core, 
it takes the error information from the fixed area 
and determines what type of error has arisen, the 
approximate address at which it occurred, and the 
appropriate error processing subroutine; prior to 
this, the correct entry addresses for the conversion 
and error routines are initialized. When the error 
processing routine has completed its task, certain 
information such as perform a Cold Start or Re- 
start, or this error was not corrected but we are 
continuing the process, or this error has been 
successfully corrected, etc. , are passed to the 
Exit component. 



• Parity 

• An invalid operation code 

• A storage protect violation, or 

• A Channel Address Register (CAR) check 

When such an error occurs, the hardware 
generates a BSI indirect to EACOO through 
word 8 where the processing procedure begins. 
The return address, the status of the accumula- 
tor and its extension, the type of error and 
certain registers are now saved, and the ma- 
chine put in a fully masked state. For each 
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A 






B 




C 




INTERNAL 




C. E. 




EAC CALL 




ERRORS 




INTERRUPT 




ENTRY 










1' 






D 










DUMP CORE 












TO DISK 



NO 




WRITE TO DISK 
LAST 1800 WORDS 
OF CORE. READ 
IN ERROR DISK 
PROGRAM 



)ETERMINE' 

WHICH ERRORS 

DECISON S/R, 

IS TO BE 

USED. 



READ IN ERROR 
DECISION S/R 
TO UPPER 640 
WORDS OF CORE 



PRINTOUT 
ERROR MESSAGE 




BRING IN ERROR 
RECORD ROUTINE 
TO INCREMENT 
COUNTER FOR 
THAT SPECIFIC 
DEVICE 



BRANCH TO EXIT 
PRESCRIBED BY 
ERROR DECISON 

VS/R a 































1 


' 




1 


1 




i 


r 




i 


' 




\ 


' 


COLD START 




CONTINUE 




RELOAD 




RESTART 




EXIT THROUGH 
INTERRUPT LEVEL 



Figure 27. Action of EAC when am Error Occurs 
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error level, EAC then sets up a work area 
within the Fixed Area. Note that the user's 
error routine (if included with his core load) 
will be ignored on all internal machine errors 
and nonprocess programs. A direct branch 
is then made to the variable core procedure (G). 

B. ACE. Interrupt routine forms part of a TSX 
on-line system to allow the user to check and 
modify system unit assignments of 1053 output 
printers, 1443 printers, and 2310 disk drives, 
and to initiate backup procedures if and when 
this becomes necessary. This is normally a 
Customer Engineer responsibility. When the 
C.E. LEVEL INTERRUPT toggle switch, lo- 
cated on the C.E. panel, is activated, a C. E. 
interrupt occurs, forcing a BSI to that level, 
and, after some processing, another BSI is 
generated to an entry EAC01 in EAC. Essential 
information is saved exactly as for internal 
machine errors. A direct branch is then 
taken to G. 

C. A Miscellaneous Error which is neither an 
internal machine error nor a C. E. interrupt 
may be either an error or a condition that re- 
quires outside intervention. For example, a 
not- ready condition on an I/O device has arisesn. 
This condition has been detected by the I/O 
routine, which then sets up an error code and 
additional parameters in locations 115 through 
119, and finally executes a BSI through location 
120 to an entry EAC02 in EAC. 

D. If the dump-core-to-disk option is specified by 
the user at System Director assembly time, 
permanent core is written to the Error Dump 
Area on disk for interrogation at a later date. 
Only the latest error is kept since there is only 
one Save Area. 

E. A determination is now made if the core load in 
error is a process core load. 

F. If it is, a branch is made to the user's error 
subroutine, if it has been included in the core 
load, to allow him to perform such processing 
as he may require for his particular system. 
This also permits him to modify some system 
options. Upon return from this routine, any 
indicator that may have been set is saved. If it 
is not a process core load, an exit is made to 
the common variable core procedure at G. 

G. At this point, DISKN is called in from the Skele- 
ton to write out the last (1920)^ words of core, 
and to read the Error Disk Program (EDP) into 
this area. The EDP program is origined such 



that it will always reside in the final (1920) ..q 
words of variable core. The very last 640^ 
words of EDP is the overlay area for the appro- 
priate Error Decision Subroutine when called. 

H. Upon entering the Error Disk Program, an an- 
alysis is made to determine which Error Decis- 
ion Subroutine is to be used. 

I. For an EAC00 entry, the Level routine is used; 
for a C.E- Interrupt entry, the C.E. Interrupt 
routine is used. If the entry was made through 
EAC02, the routine used will be determined by 
the error code stored in location 115 by the rou- 
tine which determined the error. 

The appropriate Error Decision Subroutine 
is now read into the upper (640)iq words of 
core; it then builds and prints the error mes- 
sage on up to four output printers, as defined at 
TASK assembly time, and sets a predetermined 
exit indicator or the indicator set by the user's 
error subroutine. A return is made to the EDP 
program. 

J and K. A hardware error check is now carried out. 
Assuming that an internal machine error had 
occurred, an error record routine is brought in 
to increment (that is, update) a counter associa- 
ted with that particular piece of hardware. The 
record of the hardware error is kept such that 
when maintenance is required, the counter is out- 
put to inform the Customer Engineer how often 
a particular hardware device has failed. Con- 
trol is then returned to EAC, and the stage set 
for recovery action. 

As shown in Figure 27, five types of recovery 
action (as prescribed by the appropriate Error 
Decision Routine) are possible. 

1. Cold Start 

2. Continue 

3. Reload 

4. Restart, and 

5. Exit through an interrupt level 

Cold Start. Whenever an error occurs which cannot 
be corrected, EAC prints a cold start procedure 
message, and comes to a wait state. For example, 
consider a machine parity error which has occurred 
when one of the 18 bits of information has been lost. 
A parity error routine then attempts to clear the 
error by successively loading and storing data into 
the affected location. If the error persists after re- 
peated attempts at recovery, the routine prints the 
location of the parity error, and comes to a wait. 
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Continue. The error is noted, but it is not of such 
a nature as to interfere with the program in progress. 
For example, the entry to EAC may have been a 
C. E. Interrupt or a request to print a message for 
outside intervention reflecting a not-ready state, a 
non-fatal error, or a printer parity. 

The "continue" recovery action implies that the 
program proceeds at the point of interruption. Con- 
sider an I/O device which has just completed its 
operation — an interrupt is generated. This will 
transfer control to the I/O routine which then deter- 
mines the correct error condition, and branches to 
EAC. This exit option bypasses the I/O routine and 
returns control to the point in the program at which 
the interrupt developed. 

Reload. The Reload recovery routine is brought into 
core whenever it is suspected that some of the non- 
storage protected words in permanent core may have 
been destroyed. The routine then saves the tables 
necessary for the completion of previous core loads, 
having first verified that these tables have not been 
destroyed. The Skeleton (from disk) is then read by 
sectors into a buffer area, comparing each word to 
its corresponding word in core, and overlaying it if 
there is a difference. 

If a storage protection violation has in fact oc- 
curred, this means that a storage protected word 
has dropped bits, thus making it different from its 
corresponding word on disk. Under these circum- 
stances, a cold start must be performed. Upon 
completion of the Skeleton reload, various condi- 
tions and indicators will be initialized and the rou- 
tine exits by way of a CALL CHAIN. 

Note that if an error has occurred outside of the 
Skeleton Area, the present core load is aborted and 
a new core load is read into main core for execution. 

The CAR error may be caused by incorrect usage 
of the "XIO" instruction or incorrect chaining of 
data tables, etc. This is always a reload condition. 

Restart. An error has occurred which prohibits the 
present core load from continuing. Three types of 
"restart" are used: 

1. If the error, such as an illegal call, occurred 
in a process core load, the program in pro- 
gress is aborted and its restart core load is 
called into core for execution. 

2. If the error occurred in a nonprocess core 
load, the job is aborted by calling in the Non- 
process Supervisor. 



3. If the error occurred in an interrupt core load, 
this core load is aborted, and the restart core 
load of the current process core load is called 
for execution. This means that the user's re- 
start routines must be written in such a way as 
to analyze his system and determine what pro- 
gram will be called for execution. 

Exit through an Interrupt Level. A restart condition 
has arisen on a level other than the mainline level. 
The level on which the error occurred is terminated 
and the Restart procedure taken when the mainline 
level is reached. 



THE NONPROCESS MONITOR 

The Nonprocess Monitor (NPM) is an independent 
programming system which is designed to function 
in one of two possible modes within a TSX system: 

• In the on-line mode, it operates under the control 
of the System Director. 

• It can also be run in the off-line mode as a dedi- 
cated monitor system under TASK control. 

The user elects either system (that is, an on-line 
or off-line system) at system generation time (see 
System Design Considerations) . 

The NPM serves a three-fold purpose: 

1. It permits better computer utilization through 
time- sharing. 

2. It allows the user to compile, assemble, store, 
delete, and modify programs with extreme flexi- 
bility. Because the system programs are resi- 
dent on disk, only source statements and data 
cards are required to be read in. 

3. It provides for job stacking at the Card Reader, 
which is fast because less card handling is re- 
quired. A stacked-job environment permits 
automatic and uninterrupted operation. 

The primary function of the Nonprocess Monitor 
is to provide continuous processor-controller oper- 
ation during a sequence of jobs that might otherwise 
involve several independent programming systems. 
The monitor coordinates the processor-controller 
activity by establishing a common communications 
area in core storage, which is used by the various 
programs that make up the monitor. It also guides 
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the transfer of control between monitor programs 
and the user's programs. Operation is continuous 
and setup time is reduced to a minimum, thereby 
effecting a substantial time saving in processor- 
controller operation and allowing greater program- 
ming flexibility. 

Figure 28 illustrates the five distinct but interde- 
pendent programs which make up the Nonprocess 
Monitor. 



NONPROCESS SUPERVISOR (SUP) 

The Nonprocess Supervisor directs and controls the 
execution of all nonprocess programs which may be 
either IBM- supplied as part of the TSX package 
(e.g., FORTRAN Compiler, Assembler, Core Load 
Builder, Disk Utility Program and Simulator) or 
user-written. It is composed of several separate 
but closely- related routines; its two principal com- 
ponents are: 

• The Skeleton Supervisor, and 

• The Monitor Control Record Analyzer 

Skeleton Supervisor . This contains the requisite 
direction and control logic for the orderly transition 
of one program to another. The Skeleton Supervisor 
is read into core storage whenever monitor system 
operation is initially started, and provides the com- 
munications link between monitor programs and user 
programs. 

Monitor Control Record Analyzer. This component 
of the Nonprocess Supervisor reads the monitor 
control record, prints its contents on the list and/or 
System Printer, and calls the appropriate monitor 
program. 

Analysis of monitor control records extends over 
columns 1-5 only, except for the // JOB card. Inval- 
id control records result in an error message and 
cause an abort. Blank cards are bypassed and not 
stacker- selected. The card I/O routine, CARDN, in 
the skeleton is used; if CARDN is not included by the 
user, the monitor program uses its own card I/O rou- 
tine. The // JOB control record resets the abort in- 
dicator and the effective address for the Nonprocess 
Working Storage on disk. It can also specify which of 
logical disk drives 1 and 2 are expected to be opera- 
tional, and, accordingly, checks the labels on their 
disk packs when indicated. The //END control record 
directs the Nonprocess Supervisor into a wait state. 











■" — ■ 


- — Time -Sharing 
Control Program 




Nonprocess 
Supervisor 


U*-J 




































Disk 

Utility 

Program 




Assembler 
Program 




FORTRAN 
Compiler 




Simulator 
Program 



Figure 28. The Nonprocess Monitor 



Specifically, the Nonprocess Supervisor per- 
forms the following functions: 



1. 

2. 
3. 



4. 



5. 



Analyzes all monitor control records (e.g. , 
// JOB, // ASM, // FOR) 
Performs JOB initialization 
Calls and transfers control to the requested 
monitor program (e. g. , FORTRAN Compiler, 
Assembler) 

Performs PAUS (that is WAIT) and END OF ALL 
JOB functions when requested 

Also analyzes control records for the Core 
Load Builder following the // XEQ, *STORECI 
and *SIMULCI. 



Method of Operation 

The Nonprocess Supervisor, including all monitor 
programs, must reside on logical disk drive zero 
where it occupies 21 sectors (see System Design 
Considerations: IBM Nonprocess System) . The 
first 168 words of the Disk Communications Area 
(DCOM) of sector 00000 on this disk (the system disk 
pack) contains the Nonprocess Communications Area 
which provides the logical linkages between monitor 
programs and user programs. This area holds ad- 
dress words, error indicators (used by DUP, FOR, 
ASM, SUP, etc.), the name of the program or core 
load being executed, as well as a loader for the 
monitor programs. 

DCOM is always brought into core each time a 
// JOB control record is read. Certain words are 
then initialized to reflect the current status of the 
disk as reflected by LET/FLET. Note that recog- 
nition of a // JOB control record by the Nonprocess 
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Supervisor also removes all temporary entries 
from LET. Whenever a // END or // XEQ control 
card is encountered, DCOM is written back to disk. 

Entry to the Nonprocess Supervisor occurs 
through a) Console Interrupt, b) a CALL SHARE (or 
CALL VIAQ) statement in a process mainline, c) 
FORTRAN Compiler, d) Simulator, or e) Disk Utility 
Program. 

In an on-line TSX system, process interrupts are 
serviced as they occur, the interrupt servicing time 
being applied against the time specified by the user 
for nonprocess operations. As an example, assume 
a process mainline calls for one minute of time- 
sharing. This one-minute span is the length of time 
in the share mode. If, during this period, ten sec- 
onds are used up for process interrupt servicing, 
only fifty seconds are actually available for nonproc- 
ess work. 

If all nonprocess jobs are completed before the 
end of the user- specified time, the Nonprocess Sup- 
ervisor program performs a WAIT operation for the 
remainder of the time allotted. In other words, if 
the CALL SHARE statement specified one minute of 
time- sharing, control is not returned to the process 
program until one minute has elapsed, or alternative- 
ly, a CALL ENDTS statement is executed by an inter- 
rupt routine (see Use of Time-Sharing ). 

Figure 29 illustrates, in simplified form, Non- 
process Monitor action during time- sharing. 

If a nonprocess job is not completed before the 
specified time is up, it is saved on the disk. When 
the next CALL SHARE statement is executed, oper- 
ation of the nonprocess job is resumed at the point 
of termination. 

When an unfinished job is waiting, the CALL 
SHARE statement causes it to be read in and execu- 
ted. Otherwise, the Nonprocess Supervisor pro- 
gram is read into core and determines, by checking 
a program indicator located within the System 
Director, if any time- sharing operations are to be 
performed. This indicator is turned on by the execu- 
tion of a special console interrupt routine, supplied 
with the system. 

The following example illustrates a typical use of 
the Nonprocess Monitor whenever nonprocess jobs 
are ready for execution. 
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1. 



2. 



Operator stacks jobs in Card Reader and starts 
Reader. 

Time-Sharing is typically initiated by an oper- 
ator interrupt, with a coded number set up in 



Figure 29. Illustrating Nonprocess Monitor Action during 
Time-Sharing 



the console switches to indicate a time- sharing 
request. 

Interrupt routine sets a program indicator to a 
process mainline. 

Process mainline calls for time-sharing when it 
is idle. It specifies the time interval. 
Nonprocess programs may be interrupted and 
later continued by an external (that is, process) 
interrupt or timer interrupt. This will involve 
an exchange to the disk save area if the inter- 
rupt program is not in core, or if the shared 
period has timed out. 

Nonprocess jobs are completed in sequence 
until no jobs remain (program ends on a WAIT 
instruction) or until // END OF ALL JOBS 
control record is reached. 
During time- sharing, the Skeleton Supervisor 
will be in transient core, identifying monitor 
control records and initiating monitor pro- 
grams. 
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DISK UTILITY PROGRAM (DUP) 



FORTRAN COMPILER 



DUP is a set of routines designed to aid the user in 
the day-to-day maintenance of data and programs 
on disk packs. That is, it has the capabilities of 
storing, deleting, and outputting user's programs 
as well as defining system and machine parameters. 
It also updates the location equivalence table (LET) 
and maintains other communications areas. The 
Disk Utility Program is called into operation by a 
// DUP monitor control record; it can be used on- 
line or off-line. 

The // DUP monitor control record must be fol- 
lowed by at least one DUP control statement that 
selects the desired routine. DUP control statements 
are identified by an asterisk in column 1. Columns 
2 through 10 contain a symbolic code which identifies 
the routine (e.g. *STORE, *DELETE, *SEQCH). 
The columns following the coded routine name pro- 
vide additional information used by the routine itself. 

Like the Nonprocess Supervisor, DUP must re- 
side on logical disk drive zero where it occupies 
68 sectors. Primary entry to DUP derives from 
a) Nonprocess Supervisor, b) FORTRAN Compiler, 
c) Assembler, and d) Core Load Builder. 

DUP uses the card I/O routine^ CARDN, if this is 
included in the skeleton; otherwise, it uses its own 
card I/O routine. Blank cards are skipped and 
stacker- selected when searching for control records. 
Non-DUP or non-monitor control records result in 
an error message. All DUP control records and 
messages are printed on both the System and List 
printers. 

Essential data for most DUP functions to com- 
municate with a disk pack include the following: 

• Disk sector addresses 

• Numeric label in word 0, sector 

• Disk Communications Area (DCOM) — This pro- 
vides information on the size and location of 
work storage areas, LET for the Relocatable 
Program Area and FLET for the Core Load Area. 

• Valid entries in LET/FLET 

A list of all DUP functions is given in the Sum- 
mary of Nonprocess Monitor Control Records. See 
also Examples of Nonprocess Monitor Usage. 



The TSX FORTRAN Compiler is a disk- resident ver- 
sion of the 1800 card compiler, and occupies 103 
sectors on logical disk drive zero. Provision is also 
made for the user to easily make use of input-output, 
conversion and arithmetic subroutines that are a part 
of the TSX subroutine library. The FORTRAN 
language is described in IBM 1130/1800 Basic 
FORTRAN TV Language, Form C26-3715. 

The // FOR monitor control record is used to call 
the FORTRAN compiler into operation, and to name 
the mainline program . The compiler reads the con- 
trol records and source program in card form only. 
After a successful compilation, the object program 
in relocatable format is moved to the temporary area 
on disk, and an entry (name and disk block count) is 
made in LET. It can, henceforth, be called for exe- 
cution by an // XEQ control record, or it can be 
stored permanently in the Relocatable Program Area 
by a DUP (*STORE) operation. All FORTRAN pro- 
grams are compiled in relocatable format. A list of 
FORTRAN control records is given in the summary 
at the end of this section. 



ASSEMBLER 

The Assembler program for the 1800 TSX system is 
a disk- resident version of the 1800 card assembler. 
It is designed to translate source program statements 
written in a symbolic format into a binary format 
which may be stored and/or dumped by the Disk 
Utility Program (DUP), or executed directly from the 
Nonprocess Work Storage on disk. The Assembler 
Language is fully described in D3M 1800 Assembler 
Language, Form C26-5882. 

The Assembler program resides on logical drive 
zero and occupies seven cylinders. Entry to it is 
obtained via a // ASM monitor control record. The 
Assembler accepts control records and source pro- 
grams in card form only. Upon a successful assem- 
bly, the object program in relocatable format is 
moved to the temporary area on disk where it can be 
called for execution by a // XEQ control record or 
stored permanently in the Relocatable Program Area 
by a DUP (*STORE) function. A list of Assembler 
control records is given in the summary at the end 
of this section. 
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SIMULATOR PROGRAM 

The simulator is designed as a debugging aid which 
allows the user to checkout or test process and/or 
nonprocess programs without disrupting the normal 
operations of the TSX system — that is, without tak- 
ing the system off-line. It functions under the control 
of the Nonprocess Monitor. 

Each instruction in the object program is analyzed 
for a valid operation code and format before its oper- 
ation is simulated. In addition, addresses of store 
and branch instructions are checked to ensure that 
the instruction would not alter anything outside of 
the areas of the defined program, COMMON, INSKEL 
COMMON, or the level work area, if they are act- 
ually executed on-line. Process input values may 
be read from cards or derived from a random num- 
ber generator. Since System Skeleton routines are 
used during simulation, it is mandatory that the 
skeleton area be built before simulation of process 
core loads can be performed. 

Since the primary function of the Simulator is to 
detect programming errors in the object project, 
several optional debugging features are available to 
aid the user. These include Snapshot, Branch Trace 
and Dump. Simulated COMMON can be dumped on 
cards so that a run can be executed in several dif- 
ferent parts. In addition, the branch and arithmetic 
trace provided by the FORTRAN Compiler can be 
operative in the simulator mode. 

Simulation runs for process programs are called 
by a DUP control record, *SIMULCI; runs for non- 
process programs are called by a // SIM monitor 
control record. Details of operating procedures and 
stacked- input for a typical simulation run are des- 
cribed in IBM 1800 Time-Sharing Executive System , 
Operating Procedures, Form C26-3754. 



Subroutines 



General Input/Output 

Each time the Simulator encounters a user-called 
sequence to an I/O subroutine, the location of the 
calling sequence and the subroutine name are 
printed on the List printer. Each time the Simulator 
encounters a subroutine test function (I/O function 
digit = 0), the following occurs: the first time a test 
is encountered, a busy return is made; the second 
time, a not busy return is made. Succeeding entries 
alternately cause busy and not-busy returns. 



Listed below are the general input/output subrou- 
tines (IBM-supplied) recognized by the Simulator, 
and corresponding operations which the Simulator 
performs: 



SUBROUTINE 

CARDN (Simulated card 
subroutine) 

DISKN (Simulated disk 
subroutine) 

MAGT (Simulated mag- 
netic tape subroutine) 



PAPTN (Simulated paper 
tape subroutine) 

PLOTX (Simulated plotter 
subroutine) 

PRNTN (Simulated printer 
subroutine) 

TYPEN or WRYTN (Simulated 
printer keyboard subroutine) 



OPERATION 

Read a card, feed a card, simulate 
punch a card 

Read disk, write disk, simulate 
disk seek 

Simulates all read, write, and 
control functions relative to 2401 
and 2402 magnetic tape units 

Simulate reading paper tape, simu- 
late punching paper tape) 

Simulate plotter output 



Print a line, simulate a carriage 
operation 

Simulates printing on 1816 printer 
keyboard or 1053 printer 



The Simulator requires that the card reader, disk, 
and List printer be physically present on the system. 



Process Input/Output 

Call sequences which specify input from pulse input 
points, digital input points, process contact points, 
and analog input, may obtain input from two sources: 
cards and a random number generator. 

Data cards are used if samples of specific values 
are desired; the points can be read in a nonprocess 
program and punched into cards to be read by the 
Simulator . Any value can be simulated when using 
cards, but in order to obtain the desired results, the 
input data must be sequenced according to the flow of 
the process input subroutines called. In other words, 
the card feature requires careful ordering of the 
card deck. 

A random number generator, within the Simulator 
program, produces numbers that fall into a user- 
specified range. With this option, the user can em- 
ploy a wide variety of input data to check program 
operation. A psuedo-process input environment can 
also be created through the use of a random number 
generator. All input values are printed on the list 
printer as they are called. 

In the program being simulated, call sequences 
that specify output for the contact operate, pulse out- 
put, digital output, and digital-to-analog output fea- 
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tures are printed when they are encountered. Input 
call sequences, error messages, and data are 
included in the printed output. This provides a com- 
plete chronological record of all that occurred dur- 
ing the simulation. 

IBM- supplied process input/output subroutines 
are functionally simulated; that is, the subroutines' 
call parameters are analyzed according to specifica- 
tions supplied in the form of control records. The 
routine name, calling parameters), and data are 
printed on the List printer. Listed below are the 
process input/output subroutines recognized by the 
Simulator, and corresponding operations which the 
simulator performs. Special-condition returns are 
also simulated. 



SUBROUTINE 

AIPTN or AIPN (Simulated 
analog input point) 

AIRN (Simulated analog 
input random) 

AISQN or AISN (Simulated 
analog input sequential) 

DAOP (Simulated digital- 
analog output) 

DICMP (Simulated digital 
input: read compare) 



DIEXP (Simulated digital 
inputt read expand 
function) 

DINP (Simulated digital 
input* hardware functions) 



OPERATION 

Simulates the read of a single 
analog point 

Simulates reading random analog 
input points 

Simulates reading sequential 
analog data points 

Simulates the transfer of digital 
or analog information 

Simulates the reading in of 
digital input values under program 
control and compares these values 
to a table of user-supplied values. 
Only the first compare error is 
detected^ A single entry to the 
special routine is made with 
appropriate indication. The 
end-of -table interrupt will not 
occur if a comparator error 
occurs. 

Simulates the reading in of a 
digital input value and expands 
it into 1, 2, 4, 8, or 16 words. 

Simulates the reading in of 
digital input values 



General TSX Subroutines 

When a call to a TSX control subroutine is recognized 
by the Simulator, the subroutine name and its calling 
sequence parameters are printed. There are two 
categories of subroutines designed for control and 
communication with the TSX system: the termination 
class and the functional simulate class. 

The following subroutines comprise the* termina- 
tion class, and when encountered, cause the Simula- 
tor to execute the close-job procedure: 



BACK 


PAUSE 


CHAIN 


SPECL 


DPART 


STOP 


INTEX 


VIAQ 


LINK 


EXIT 



The subroutines listed below comprise the func- 
tional simulate class, and when encountered, cause 
the Simulator to simulate the function, i.e., they 
analyze the call parameters for validity and print 
the routine name, the calling parameters, and the 
data contained within the subroutine. 



CLEAR 


REMSK 


COUNT 


SAVMK 


ENDTS 


SETCL 


LEVEL 


SHARE 


MASK 


TIMER 


OPMON 


UNMK 


QIFON 


UNQ 


QUEUE 





User-Written Subroutines 

User-written subroutines are simulated in the same 
manner as mainline programs. 



Arithmetic and Conversion Subroutines 

Copies of the IBM- supplied arithmetic and conver- 
sion subroutines are contained within the Simulator. 
It is these copies that are executed when a call to an 
arithmetic or conversion subroutine is encountered. 
The requested operations are performed in a psuedo- 
processing environment maintained under control of 
the Simulator. 



Common Area 

The simulated COMMON area can be dumped on 
cards whenever a program being simulated is ter- 
minated. The output cards can be used for input 
to reload COMMON, thus providing communication 
from one core load to another. 
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Restrictions 

Restrictions placed upon the use of the Simulator 
program are listed below: 

1. Nonprocess work storage must be used if actual 
data is to be transferred between disk and core. 

2. Link or chain jobs must be simulated by pre- 
senting one core load at a time. 

3. The Simulator utilizes LIBF and CALL instruc- 
tions for special purposes. When analyzing post- 
mortem dumps, the contents of LIBF and CALL 
locations should be ignored by the user. 

4. All I/O must be performed by Simulator sub- 
routines. An execute I/O (XIO) instruction is 
not simulated but will be recorded on the List 
printer. 

5. A wait (WAIT) instruction will be recorded on 
the list printer. 



6. A storage protect setting instruction (STS with 
both the F-bit and the 9th bit equal to zero) will 
result in a termination. 

7. An attempt to store into a skeleton area other 
than the INSKEL COMMON and work level 
areas will result in a termination. 

8. Operation codes of 00, 38, 58, 78, and FF are 
invalid and will result in a termination. 

9. A subroutine I/O area parameter pointing to the 
skeleton will result in a termination. 

SUMMARY OF NONPROCESS MONITOR CONTROL 
CARDS 

Tables 5-10 give a brief summary of all Nonprocess 
Monitor control cards. For details of card prepar- 
ation and their functions, see IBM 1800 Time- Sharing 
Executive System, Operating Procedures, Form 
C26-3754. 



Table 5. Monitor Control Cards 



//JOB 


Initializes a nonprocess job 




//DUP 


Reads the disk utility program into core for execution 




//XEQ 


Reads the user's programs into core for execution 




//ASM 


Reads the Assembler into cpre for execution 




//FOR 


Reads the FORTRAN compiler into core for execution 




//SIM 


Reads the Simulator program into core allowing a nonprocess program to be 


simulated 


// PAUS 


Causes the system to WAIT 




// END or 






// END OF ALL JOBS 


Signals the Nonprocess Supervisor that all nonprocess work is complete 





Table 6. Loader Control Cards 



*INCLD 
*RCORD 
*FILES 
*CCEND 
* LOCAL 



Causes a named program to be included in the skeleton or in a mainline core load 

Records interrupts that occur during the execution of process core loads 

Provides for the designation of disk areas to be used by the FORTRAN program in which the files were defined 

Indicates that no loader control cards are following and the core load builder can be called 

Permits groups or blocks of subprograms to be loaded into core when they are called 
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Table 7. DUP Control Cards 





r 
OCORE 


Specify the size of object core 






NDISK 


Specify the number of disk drives on the system 




'DEFINE < 


CONFG 


Specify the system configuration with respect to disk areas 






RE MOV 


Allow the user to delete FORTRAN or the Assembler from the monitor disk 






_PAKDK 


Pack relocatable programs into unused areas identified by *DELET 




*DLABL 




Labels a disk pack and, if not system pack, writes addresses 




*STORE 




Stores relocatable programs in the Relocatable Program Area (user or temporary) on disk 




*STOREDATA 




Stores blocks of data in Core Load (core Image) Area on disk 




*STORECI 




Causes a core load to be built and stored in the Core Load Area on disk 




*DUMP 




Dumps programs from the disk to the system I/O device or list printer 




♦DUMPDATA 




Dumps blocks of data as Indicated in *DUMP 




♦DUMPLET 




Dumps LET and/or FLET on the list printer 




*DELET 




Replaces a program name in LET or FLET with the name 9DUMY thus making the program area available 
store function 


to the 


*DWRAD 




Allows the user to write addresses on a specified area of disk 




*STOREMD 




Allows the user to modify existing nonprocess core loads and relocatable programs without previously 
deleting them 




*SEQCH 




Used to change the sequence of existing core load linkages for process or nonprocess core loads 




*SIMULCI 




Reads the Simulator program into core, allowing a process program to be simulated 




*DICl.E 




Allows the user to modify the interrupt core load table 





Table 8. FORTRAN Control Cards 



* IOCS (CARD, TYPEWRITER, KEYBOARD, 1443 PRINTER, PAPER TAPE, 
MAGNETIC TAPE, DISK, PLOTTER) 

** Header information to be printed on each compiler output page 

* ONE WORD INTEGERS 

* EXTENDED PRECISION 

* ARITHMETIC TRACE 

* TRANSFER TRACE 

* LIST SOURCE PROGRAM 

* LIST SUBPROGRAM NAMES 

* LIST SYMBOL TABLE 

* LIST ALL 

* NONPROCESS PROGRAM 

* PUNCH 



Delete any not used 

(Store integer variables in one word) This function is automatic in 
process programs . 

(Store floating point variables and constants in 3 words instead of 2) 

(Switch 15 ON to print result of each assignment statement) 

(Switch 15 ON to print value of IF or Computed GO TO) 

(List source program as it is read in) 

(List subprograms called directly by compiled program) 

(List symbols, statement numbers, constants) 

(List source program, subprogram names, symbol table) 

(Identifies this compilation as a nonprocess program) 

(Causes DUP to punch an object deck after successful compilation) 
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Table 9. Assembler Control Cards 



♦TWO PASS MODE 

*LIST 

*LIST DECK 

*LIST DECK E 

*PRINT SYMBOL TABLE 

*PUNCH SYMBOL TABLE 

♦SAVE SYMBOL TABLE 

♦SYSTEM SYMBOL TABLE 

♦PUNCH 

♦OVERFLOW SECTORS n 

♦COMMON n 



Read source deck twice; must be specified when *LIST DECK or *LIST DECK E is specified, or when intermediate output fills 
working storage 

Print a listing on the principal printing device 

Punch a list deck on the principal I/O device (requires *TWO PASS MODE) 

Punch only error codes (cc 18-19) into source program list deck (requires *TWO PASS MODE) 

Print a listing of the symbol table on the principal printing device 

Punch a list deck of the symbol table on the principal I/O device 

Save symbol table on disk as a system symbol table 

Use system symbol table to initialize symbol table for this assembly 

A relocatable binary deck will be punched by DUP following this assembly 

n = number of sectors of nonprocess working storage allowed for symbol table overflow 

n = length of COMMON in words (decimal) 



Table 10. Simulator Control Cards 



♦SNAP 


Displays up to 10 locations following execution of an instruction 


♦TRACE 


Traces or displays same information as for # SNAP 


♦DUMP 


Dumps simulated core storage 


♦SAVE COMMON 


Punches out binary deck of process and variable COMMON 


♦LOAD COMMON 


DEFINES and analyzes COMMON from *SAVE COMMON OUTPUT deck 


♦XIO 


Suppresses printing of IOCC words referenced by XIO instruction 


♦WAIT 


Suppresses printing of WAIT instructions 


♦START SIMULATION 


Signals that all Simulator control cards have been read 


♦END DATA 


Terminates Simulator run 



EXAMPLES OF NONPROCESS MONITOR USAGE 

The prime purpose of this section is to illustrate a 
few of the many possible uses of 1800 TSX features, 
and to accentuate the many more possibilities based 
upon the ability of the user to apply the basic con- 
cepts and techniques. Numerous sample programs 
and coding examples are presented as demonstration 
of good programming practice and technique. These 
examples conform strictly to standard TSX coding 
conventions. 



The JOB 



When a programmer is given a problem, he analyzes 
that problem and defines a precise problem- solving 
procedure: that is, he writes a program or a series 
of programs. To the monitor system, executing a 
mainline program (and any subroutines and subpro- 



grams that it calls) is a job step. A job consists of 
executing one or more job steps. 

At its simplest, a job consists of one solitary job 
step. For example, assembling or compiling a pro- 
gram is a job consisting of one job step. Similarly, 
executing a FORTRAN mainline program to invert a 
matrix is a job consisting of a single job step. 

If the problem is complex, one job may consist 
of a series of job steps. Such a job may include 
multiple assemblies, compilations, disk utility 
functions, and executions. A job always begins with 
a // JOB control card which is the first statement 
in the sequence of control statements that describes 
a job. 

The JOB Deck 

The input to the Nonprocess Monitor may consist of 
one or more job decks. Each job deck is preceded 
by a // JOB. The processing of each job deck is 
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controlled by the Supervisor program as specified in 
the monitor control cards. As an; example, consider 
the following stacked input arrangement (see Figure 
30). 

The above sequences will compile, store and 
execute both program PROG1 and program PROG2 
provided that: 

1. There are no source program errors, and 

2. There is sufficient room in the Nonprocess 
Work Storage area. 

A source program error will cause the DUP 
Store Operation to be bypassed for that program, and 
all following // XEQ requests preceding the next 
// JOB card will be disregarded. This feature (that 
is // XEQ — request disregard) can prove very use- 
ful when the successful execution of one program de- 
pends upon the successful completion of the previous 
program. A combination such as this should be con- 
sidered as one job. The // XEQ control cards should 
not be separated by a // JOB card. Note from Fig- 
ure 30 that it would not be necessary to store the two 
programs if they were executed on a one- shot basis. 



a control process. All application programs are, 
by definition, process programs. A nonprocess 
program, on the other hand, is not directly related 
to the control process itself. An assembler pro- 
gram is an example of a nonprocess program: other 
examples include compilers, data reduction, pay- 
roll, bookkeeping, simulation of new and existing 
programs, and linear programming. 

Process and nonprocess programs may be fur- 
ther classified as main programs or subroutines. 
Subroutines can be subdivided into the following: 
LIBF (library functions), CALL, Interrupt, IBM- 
supplied, and LOCAL subroutines. 

In the off-line or time- sharing mode of operation, 
the user may exercise any of four options in assem- 
bling/compiling and executing a nonprocess program. 
Figure 31 illustrates these approaches in simplified 
form. A distinction should be drawn between proc- 
ess and nonprocess programs. The initial process 
program can only be executed through a cold start 
procedure for an on-line TSX system. If the proc- 
ess, mainline, or combination core load is already 
disk-resident (in the Core Load Area) it is called 
by a CALL CHAIN or CALL QUEUE. 



Assembling/Compiling Programs 

Programs are of two types: process and nonprocess. 
A process program is one that continuously monitors 
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Figure 30. Illustrating a JOB 



EXAMPLE 1. ASSEMBLE AND EXECUTE A NON- 
PROCESS PROGRAM FROM THE TEMPORARY 
AREA (see Figure 32). 

The Assembler is unable to differentiat e between 
process and nonprocess programs — these are 
treated alike. Following assembly, the object pro- 
gram in relocatable format is moved to the tempor- 
ary area on disk, and its entry (name, word count, 
and sector address) made in LET. 

If the user desires to perform only an initial 
check on his program, and not execute it, // XEQ 
and *CCEND are not required. If he plans to verify 
the program logic and results (if any), he will exe- 
cute it. The presence of the // XEQ and *CCEND 
control cards calls in the Core Load Builder, and a 
core load is built and executed. In addition, a list- 
ing of source statements as well as the correspond- 
ing object program, and a directory of all valid 
labels used in the program can be obtained by speci- 
fying these options with the appropriate Assembler 
control cards. The order in which programs are 
assembled is important when the *SAVE SYMBOL 
TABLE control card is used in assembling related 
programs. 

Note that the relocatable program will reside in 
the temporary disk area until it is deleted by the 
next // JOB card. An *CCEND control card must 
always follow an // XEQ card if a relocatable 
program is referenced in the // XEQ card. 
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This is automatic if the assembly or compila- 
tion is successful. 

Execution occurs through a Cold Start, CALL LINK 
or //XEQ. 
Execution can only occur through a // XEQ. 



Figure 31. Assemble/Compile and Execute a Nonprocess Core Load 
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Figure 32. Assemble and Execute a Nonprocess Program from the 
Temporary Area 



EXAMPLE 2. COMPILE AND STORE A NON- 
PROCESS PROGRAM IN THE RELOCATABLE PRO- 
GRAM (OR USER) AREA ON DISK (see Figure 33). 

Unlike the Assembler, the Fortran Compiler dis- 
tinguishes between the two types of programs by the 
absence or presence of the *NONPROCESS PROGRAM 
control card. In a process program, each integer 
variable automatically occupies one word of storage. 
In a nonprocess program, however, the *ONE WORD 
INTEGERS control card forces the compiler to allo- 
cate one word of storage to each integer variable; in 
the absence of this card, the same allocation (that is, 
two words) for real variables is made. In the case of 
a large array, this could be prohibitive. 

All FORTRAN programs are compiled in relocatable 
format. Following compilation, the relocatable 
object program is moved to the temporary disk area, 
and an entry made in LET. It can now be called for 
execution or loaded to the Relocatable Program (that 
is, the User) Area on disk. 

In Example 2, the relocatable program MAIN2 is 
stored in the Relocatable Program (User) Area. The 
actual storing of the program consists of physically 
moving the program to its destination area (the User 
Area) from the temporary area of Nonprocess Working 
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Figure 33. Compile and Store a Nonprocess Program in the 
Relocatable Program Area (User Area) on Disk 



Storage. When the storing operation is completed, 
LET is updated and the communications and fixed 
area parameters reset to reflect these changes. 

Note that a store from the temporary (TEMP) area 
to the permanent Relocatable Program Area causes 
TEMP to be packed to reflect that program moved. 
An exception exists when the program is the last 
entry in TEMP or when there is only one TEMP pro- 
gram initially. 



load name table are looked up in FLET and their 
disk addresses and word counts added to the table. 
The core load is then executed from the Core Load 
Area. FX in columns 16 and 17 of the // XEQ 
monitor control card signifies that the input program 
is in core image format and that FLET is to be 
searched for this program name. 



Deleting and Replacing Relocatable Programs , 
Core Loads, and Data Files 

The *DELETE function allows the user to delete any 
named 

Relocatable program 
Mainline core load 
Combination core load 
Interrupt core load 
Nonprocess (or link) core load 
Data file 

from the disk. An entry of a program in LET or a 
core load/data file in FLET takes the normal form 



LET: 



NAME 



DISK BLOCK 
COUNT 



EXAMPLE 3. COMPILE AND EXECUTE A NON- 
PROCESS PROGRAM FROM THE CORE LOAD 
AREA (see Figure 34). 

This example illustrates the third and fourth options 
which may be taken to assemble /com pile and execute a 
nonprocess program from the Core Load Area. Note 
that subroutines TIMSB, ERROR, and PRINT are com- 
piled and stored in the User Area as these subroutines 
are frequently referenced by this and other nonprocess 
programs. In building process mainline and combina- 
tion core loads, it may not be necessary to store these 
subroutines. The store core image routine is used to 
store a program in core image form (as a core load) 
in the core load area and to assign the core load a 
name. By making column 9 of the *STORECI control 
card non-blank, a map of the locations and names of 
subroutines and subprograms loaded with the core 
load is obtained. When the nonprocess core load is 
correctly built, DUP will search through its program 
name table, find the name of the cpre load just built, 
and add its disk address and word count to the table. 
In addition, any programs referenced in this core 



FLET: 



NAME 


WORD 
COUNT 


SECTOR 
ADDRESS 



where each LET and FLET entry occupies three and 
four words of disk space respectively. Whenever a 
program or a core load is deleted, its NAME in LET 
or FLET is replaced by the symbolic 9DUMY and 
henceforth the system is no longer cognizant of this 
program or core load. Furthermore, the area on 
disk previously occupied by a program or core load 
is now available for the storage of other programs, 
core loads, or data files. These areas are available, 
but only used after all previously available areas have 
been used. 

A core load may be deleted and, in addition, have 
its reference replaced by another core load's word 
count and sector address. The replacement core 
load must be of the same type. That is, a mainline 
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Figure 34. Compile and Execute a Nonprocess Program from the Core Load Area 
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core load may be replaced by another mainline core 
load, an interrupt core load by an interrupt replace- 
ment core load, a combination core load by a re- 
placement core load, and a nonprocess core load by 
a nonprocess replacement core load. Replacement 
of the four types of core loads is governed by cer- 
tain rules which are summarized as follows. Note 
that the replacement function within an *DELETE 
operation does not alter the core load name, but only 
its word count and sector address. 

Combination and Interrupt Core Loads. In deleting a 
combination or interrupt core load, all references to 
this core load in the Program Name Table (PNT) 
and/or Interrupt Core Load Table (ICLT) must be 
replaced by a replacement core load name. Absence 
of this specification in the control card invalidates 
the deleting function. Furthermore, if an interrupt 
core load or combination is used to service multiple 
interrupts, all interrupt core load entries in the PN 
Tables, Queue Table, and ICL Table are automatically 
replaced with a single delete operation by specifying 
9999 for the interrupt level and bit positions on the 
control card (columns 39-42). 

The rule is never to allow a previous serviceable 
level and its bit indicator to remain unserviceable. 

Mainline and Nonprocess (or Link) Core Loads. In 
general, a mainline or nonprocess core load that is 
not currently being called by other core loads does 
not require replacement. If, however, it is still 
being referenced in the Queue Table, the PNT within 
the System Skeleton or some other PNT, deletion 
is restricted because it is still necessary to maintain 
this core load identity in the system. Note that a 
nonprocess core load may be deleted without a re- 
placement core load even though it is still refer- 
enced. A negative value is then placed in the word 
count position of the PNT entry in those core loads 
referencing the deleted nonprocess core load. A 
nonprocess core load is also referred to as a link. 

Data Files. By definition, a data file is an area in 
the Core Load Area established by an *STOREDATA 
function with a D in column 11. Data files can be 
deleted but not replaced. In deleting a data file from 
the disk, the user should be aware that the system 
does not check to see whether this data file is still 
being referenced by currently executing core loads. 
This means that if he wishes to delete a data file, he 
has to ensure by some programming means that 
there is no reference to this file: that is, no reading 
from or writing to this file. If there is a reference, 
there is a distinct possibility that core loads writing 
to or reading from this file might destroy one or 



more core loads stored in the same location the 
data file was located. 

EXAMPLE 4. DELETE A PROCESS MAINLINE, 
COMBINATION OR INTERRUPT CORE LOAD FROM 
THE CORE LOAD AREA (see Figure 35). 

In deleting a process mainline core load, the 
user should ensure that this core load is not being 
referenced or called by any other core load that may 
in turn reference further core loads. If such a sit- 
uation exists, up to 14 names of calling core loads 
will be listed; if the number of calling core loads 
exceeds 14, any excess will not be indicated in the 
error message. The solution here is to eradicate 
the excess core loads from the Fixed Area, either 
by a sequence change or a deletion. 

The delete operation is merely one of removing 
or eliminating an entry from the FLET table with a 
system mnemonic name 9DUMY, indicating an un- 
used area on disk. Note that in a fresh (that is, 
new) disk pack, the Core Load or Core Image Area 
is initially represented in FLET by a 9DUMY 
entry thus: 

NAME (= 9DUMY) 
SECTOR COUNT 
SECTOR Address 

Subsequent *STORECI operations will move this 
entry. A delete simply replaces a core load with a 
9DUMY. In practice, a delete is normally followed 
by a replacement unless the core load being deleted 
is considered "dead, " thus making its replacement 
unnecessary. 

Example 4 also demonstrates the use of 
*DUMPLET as an effective programming tool. A 
dumplet following a delete operation is good program- 
ming practice; it shows conclusively that a program 
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Figure 35. Delete a Process Mainline, Combination, or Interrupt 
Core Load from the Core Load Area 



84 



or core load is in fact removed from the FLET 
table. For an understanding of LET/FLET tables, 
the user is referred to the Systems Reference Li- 
brary: IBM 1800 Time-Sharing Executive System, 
Operating Procedures, Appendix F, Form C26-3764. 

In all three cases, the FLET table is searched for 
the core load name to be deleted, and its replace- 
ment name. Any references to the old program in 
the Program Name Table of all core loads are then 
replaced with the word count and sector address of 
the replacement core load. The old program name 
is finally deleted from the FLET table. 

In the case of combination and interrupt core 
loads, the interrupt level and PISW bit position indi- 
cators are obtained from the card buffer, converted, 
and stored in the nonprocess communications area. 
The ICL Table is then updated. 

Note also that in all cases, except for the deletion 
or replacement of nonprocess programs, a check of 
the queue in the skeleton is made to see if the pro- 
gram to be deleted or replaced is in the queue. If it 
is, the queue is updated. 

EXAMPLE 5. REPLACING A NONPROCESS CORE 
LOAD IN THE CORE LOAD AREA (see Figure 36). 
Like process mainline, combination and interrupt 
core loads, a nonprocess core load can also be 
deleted and replaced by an *DELETE operation (see 
Figure 35). 

A nonprocess core load can also be replaced by 
storing a replacement core load to the Fixed Area, as 
illustrated in Figure 36. The user can thus modify 
existing nonprocess core loads without previously de- 
leting them. 



This is achieved by an *STOREMD operation. An 
*STOREMD with a Fixed Area destination is exactly 
equivalent to an *STORECI of a nonprocess core load 
provided that 

1. The replaced entry must be in FLET for a 
Core Load Area 

2. If the function is to modify the Core Load Area, 
the existing FLET entry must be for a nonproc- 
ess core load. 

A search through FLET is first made to see if 
the replacement core load name is already an entry. 
A further search is then made for a large enough 
9DUMY entry to contain the core load. On a find, 
the sector count of the 9DUMY is checked against the 
required sector count. The check is successfully 
terminated by locating a large enough entry on a 
specified drive which can also take an additional 
FLET entry. A successful find supplies a destina- 
tion sector address, and, if previously unknown, the 
logical drive. Once it is determined that there is 
space to store the core load, the core load Program 
Name Table is updated. 

Note that the replacement program can either be 
in the temporary area (of Nonprocess Working Stor- 
age) or in the Relocatable Program (that is, User) 
Area on disk. The name assigned to this program 
must not be the same as that of the program to be 
replaced. In Example 5, NAME1 and NAME 2 desig- 
nate two different names. NAME1 (which was pre- 
viously resident in the Core Load Area) is deleted 
from the Fixed Area and its entry in FLET removed. 
The replacement core load NAME2 is stored in the 
Core Load Area and its name, size in words, and 
starting sector address then entered into the FLET 
table. 
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Figure 36. Replacing a Nonprocess Core Load in the Core Load Area 



EXAMPLE 6. REPLACE A RELOCATABLE PRO- 
GRAM IN THE USER AREA (RELOCATABLE PRO- 
GRAM AREA) (see Figure 37). 

Figure 37 illustrates a sequence of control cards 
that might be used to accomplish this. NAME1 is 
the name of the replacement program being stored. 
It must be compiled or assembled with the identical 
name of the relocatable program being replaced 
(that is, also NAME1), and it must be the prime 
entry point. This name must be in the temporary 
area of Nonprocess Working Storage. 

Note that the control card name for the existing 
program to be replaced must have a LET entry of 
the same name for a User Area replacement. The 
replacement program will not overlay the current 
program, but only cause it to be deleted from the 
LET table. Thus, the size of a replacement pro- 
gram and the number of entry points in a relocatable- 
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Figure 37. Replace a Relocatable Program in the Relocatable 
Program Area 



program are governed only by the standard restric- 
tions on any *STORE operation, and not by the size 
and number of entry points of the existing program. 

Other than the above considerations, an *STORE- 
MD with a User Area destination is essentially equiv- 
alent to an ordinary *STORE function to the User 
Area: the same coding is thus used for storing the 
program. This procedure is mainly used for the 
modification of existing user-written or IBM-sup- 
plied programs. 

Changing Core Load Linkages. Through the *SEQCH 
function, the user is given a powerful programming 
tool to alter the sequence or order of existing core 
load linkages for either process or nonprocess core 
loads. This means that he can now modify a core 
load Program Name Table such that all references 
to a core load originally specified will subsequently 
reference a replacement core load. Note that no 
deletion of core loads takes place as in an *DELETE 
with- replacement operation. 

This is known as selective replacement, since 
the existing referenced core load, the replacement 
core load, and all other core loads in which changes 
are to be implemented are all specified. 

Note also that the replacement and existing core 
loads must be type- compatible. That is, a mainline 
or combination core load may replace either a main- 
line or combination core load, but a nonprocess or 
link core load may only be replaced and called by a 
link. Process calls may emanate from any type of 
core load. 



EXAMPLE 7. CONSIDER THE FOLLOWING 
SITUATION. In a typical operation, core loads 
ALPHA, BETA1, and DELTA will call or reference 
core load NAME1 by a CALL QUEUE statement, thus: 

CALL QUEUE (NAME1, 1, 0) 

The user now elects to replace NAME1 by 
NAME 2 such that all further references to NAME1 
by ALPHA, BETAl, and DELTA will be changed to 
NAME2. NAME1 can either be a combination or 
mainline core load resident in the Core Load Area; 
by definition, NAME2 must either be a combination 
or mainline core load — assume that it is also 
stored (by an *STORECI) in the Core Load Area. 
The following sequence of control cards may be 
used to effect this change. 
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This will modify the Program Name Table of 
each of the core loads ALPHA, BETAl, and DELTA 
so that whenever they call NAME1, the call will 
refer to NAME 2. 

At this point in the operation, the user may have 
no further use for this sequence change, and may 
well delete core load NAME1, thus: 



*DELETE 



M 



NAME1 



In practice, however, he will probably not delete 
NAME1 but prefer to return to his original sequence, 
thus: 

*SEQCH NAME2 NAME1, ALPHA, BETAl, DELTA 

Note that because of the type-compatibility be- 
tween existing and replacement core loads (mentioned 
earlier), a restriction exists in the case of nonproc- 
ess core loads. If, for example, NAME1 were a 
nonprocess core load, then NAME2, ALPHA, 
BETAl, and DELTA must, by definition, be also 
nonprocess core loads. 

EXAMPLE 7A. AN ALTERNATIVE METHOD (TO 
THE *STOREMD FUNCTION) OF ON-LINE RE- 
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BUILDING OF PROCESS CORE LOADS. Figure 38 
illustrates the technique employed, where 

• CLA1 is the core load name to be modified; 
assume the core load is on disk. RELPR is the 
relocatable program which has been modified. 

• CLA2 is a temporary core load name used to 
achieve proper deletion and replacement of the 
new version of CLA1. 



Debugging Core Loads using the Simulator 

Several options are available to the user for the de- 
bugging of process and nonprocess programs. These 
are summarized below: 



Nonprocess Programs 

1. Using TASK (with TASK EAC) in an off-line 
system only. 

2. Using the Simulator in an (a) off-line, or 
(b) on-line system. 
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Figure 38. On-Line Rebuilding of Process Gore Loads 



Process Programs 

1. Using TASK (with TASK EAC) in an off-line 
system only. To do this, the process program 
must first be written as a nonprocess program; 
when fully tested, it is reconstituted into a 
process program for execution (in an on-line 
environment). 

2. Using the Simulator in either the on-line or 
off-line environment. 

The advantages of the Simulator as a debugging tool 
lie mainly in 

1. The powerful diagnostic messages printed by 
the Simulator, which allow the user to deter- 
mine the logic flow of the program by noting 
the subroutines called, and, 

2. in the fact that a process or nonprocess core 
load may be fully tested without taking the sys- 
tem off-line. 

The following examples illustrate the simulation 
of assembly language process programs. 

EXAMPLE 8 (PROGRAM LISTING NO. 2). This 
program is written for the purpose of debugging the 
Simulator. If the Simulator erred in the reading of 
analog input cards, error messages would be 
printed. 

Actual simulation is initiated after the core load 
build function has been completed. The first tiling 
done by the Simulator is to read the Simulator con- 
trol cards *XEO and *START SIMULATION. Note 
that any other Simulator control cards, such as 
*DUMP, *SNAP, etc. , should precede the *START 
SIMULATION card: data cards should follow the 
*START SIMULATION card. Since no control card 
is used to describe the source of analog data, it is 
assumed that this data will emanate from card input. 

After reading the control cards, the Simulator 
will proceed to interpret the instructions in the 
user's program, exactly as in execution. The first 
instruction being a LIBF AISQN, the Simulator 
prints the S50 message, giving the name of the rou- 
tine and the absolute address of the LIBF. The S20 
message is printed by the Simulator AISQN routine 
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and consists of a description of the calling sequence. 
Since it is an analog input, a data card is read. 
However, due to the fact that column 5 is blank, 
the Simulator is not aware of the format of data on 
this card and informs the user accordingly with the 
S12 message. This is likewise the case with the 
next two cards. Note that the Simulator is still in 
the process of simulating the first AISQN call. It 
will continue reading cards until it completes this 
call. The next card read has a D in column 5, im- 
plying digital data input. 

However, an absence of the E parameter in 
column 72 signifies an end of data and thus the S15 
message. Only the number +00123 is read into the 
buffer since the word count is 2, one word of which 
is the analog address. 

Upon completion of the first LIBF, the busy test 
is encountered. The Simulator will always take the 
busy exit the first time through a busy test. The 
second time through, it will exit at the not-busy in- 
struction. Thus, if the busy exit contains an MDX 
back to the busy test, the Simulator output will show 
two "goes" through the busy test, one after another, 
as in the printout of the two S21 messages. 

Next, in sequence, another LIBF AISQN is encoun- 
tered. Again, the S50 message identifies the sub- 
routine and the absolute address of the LIBF. The 



S20 message gives the calling sequence. A card is 
read with correct format and an E in column 72. 
However, only the numbers 1234 and FF12 are 
read, the first blank terminating the data. Since 
the word count for AREA2 is four, there is insuf- 
ficient data on the cards to fill the buffer. Hence 
the S16 message. 

Note that an E in column 72 terminates: the call 
to the subroutine. Therefore, if there had been no 
E in the last card read, the Simulator would have 
tried to fill the buffer with data from the next card. 
The busy test following this is then simulated. 

The last call recognized is that to VIAQ, and 
this terminates the job. The following S99 message 
is a snapshot of the instruction which caused 
termination. 

Anytime a job is terminated, a snapshot is given 
to allow the user to determine why the job was 
terminated. 

If the user had wished to see the status of regis- 
ters at some point of the program, a *SNAP or a 
*TRACE card could have been added giving the rela- 
tive address (obtained from the assembly) of the 
instruction. Note also that the WAIT instruction can 
be used as a trace aid since the Simulator automatic- 
ally gives a snapshot of registers upon encountering 
a WAIT. 
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// JOB 

// * TEST CASE DB638 START 
// ASM DB638 
♦ LIST 



*THIS TEST CHECKS ABILITY OF THE SIMULATOR TO 

* 1. REJECT DATA CARDS WITH INCORRECT FORMAT 

* 2. SKIP EXCESS DATA CARDS 

* 3. SENSE INSUFFICIENT DATA IS SUPPLIED 



OOOO 
0001 
0002 
0003 

0004 
0005 
0006 
0007 
0008 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 
0010 
0011 
0012 
0013 
0015 
0017 
0019 
001A 
001B 
001D 
001E 
0020 
C021 
0022 
0023 
0024 
0025 
0026 
0028 
0029 
0039 
0046 
0054 
005D 
005E 
006D 
007C 
0085 
0086 
0088 



NOT EXECUTED 



CHECK THAT NO MORE 
THAN 1 DATA CARD WAS 
USED FOR DATA. 



NOT EXECUTED 



CHECK THAT I/O AREA 
ABOVE DATA CARDS WAS 
NOT ZEROED. 



*PRINTER MESSAGES UPON SUCCESSFULL TEST SHOULD BE 

* S12 UNIDENTIFIABLE PROCESS INPUT DATA CARD READ 

* S15 TOO MUCH DATA, READ CARDS UNTIL E IN COL 72 

* S16 INSUFFICIENT DATA TO FILL I/O AREA, JOB 

* CONTINUED 

20 01262615 START LIBF AISQN 

1000 DC /1000 

1 0020 DC AREA1 
3000 WAIT 
20 01262615 NEXT LIBF AISQN 
0000 DC /OOOO 
70FD MDX NEXT 

C01B LD AREAlf.3 

01 4C200017 BSC L ERR1.Z 
20 01262615 NEXTl LIBF AISQN 

1000 DC /1000 

1 0024 DC AREA2 
3000 WAIT 
20 01262615 NEXT2 LIBF AISQN 
OOOO DC /OOOO 
70FD MDX NEXT2 
C016 LD AREA2t>4 

9073 S CONST 

01 4C20001B BSC L ERR2.Z 
30 25241600 CALL VIAO 
30 14162897 FRR1 CALL MESSP 
1 0029 DC ERR1P 

70EF MDX NEXTl 
30 14162897 ERR2 CALL MESSP 

1 005E DC ERR2P 
30 25241600 CALL VIAO 

0002 AREA1 DC 2 

1001 DC /1001 

0001 BSS 1 
OOOO DC /OOOO 
0004 AREA2 DC 4 
1001 DC /1001 

0002 BSS 2 
AAAA DC /AAAA 

0020 ERRlP EBC . NOT SUCCESSFUL, EITHER CARD. 

0019 EBC . WITH BAD FORMAT WAS NOT . 

001C EBC .RECOGNIZED OR TOO MANY DATA . 

0012 EBC .CARDS WERE READ IN. 

0002 EBC .$s. 

001D ERR2P EBC . NOT SUCCESSFUL, I/O AREA. 

001D EBC . ZEROED ABOVE AREA FOR WHICH . 

0011 EBC .OATA WAS SUPPLIED. 

0002 EBC .ss. 

AAAA CONST DC /AAAA 

OOOO END START 



NO ERRORS IN ABOVE ASSEMBLY. 
DB638 

DUP FUNCTION COMPLETED 
// DUP 

♦SIMULCIL M DB638 DB638 DB638 

+CCENO 

CLB. BUILD DB638 

CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0054 


*IST 


TABLE 


3F0F 


0036 


*PNT 


TABLE 


3F46 


0008 


MAIN 


DB638 


3F4E 




PNT 


DB638 


3F48 




PNT 


DB638 


3F4C 




CALL 


VIAQ 


3FD6 




CALL 


MESSP 


4036 




CORE 




40BE 


3F42 
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CLB, DB638 LO XQ 

♦ XIO 

♦START SIMULATION 

S 50 3F4E AISQN 

S 20 CONTROL WORDJ1000, 10 AREAI 3F6E t SPEC I AL ENTRY 13000 

S 14 INPUT CARD I ♦ AI fclil20-11134ft02561-19825*31562 

S 12 UNIDENTIFIABLE PROCESS INPUT DATA CARD READ 

S 14 INPUT CARD J *AI 12340210FF12FEDC 

S 12 UNIDENTIFIABLE PROCESS INPUT OATA CARD READ 

S 14 INPUT CARD J *AI OOOOlOlOOlOOOllOOOOOOlllilllllll 

S 12 UNIDENTIFIABLE PROCESS INPUT DATA CARD READ 

S 14 INPUT CARD I *AI D *00123-00010*00127-02047 

S 15 TOO MUCH DATAt READ CARDS UNTIL E IN COL 72 

S 14 INPUT CARD I *AI H 123A0210FF12FEDC 

S 50 3F52 AISQN 

S 21 BUSY TEST 

S 50 3F52 AISQN 

S 21 BUSY TEST 

S 50 3F58 AISQN 

S 20 CONTROL WORDtlOOO, 10 AREA! 3F72 . SPEC I AL ENTRY ! 3000 

S 14 INPUT CARD I *AI H 1234FF12 FEDC 

S 16 INSUFFICIENT DATA TO FILL I/O AREA 

S 50 3F5C AISQN 

S 21 BUSY TEST 

S 50 3F5C AISQN 

S 21 BUSY TEST 

S 56 TSX VIAQ NOT EXECUTED 

S 99 0015 3F63 3F65 5400 3FD6 0000 0000 0000 0000 0000 3F 3B 

N08 ILLEG LDR CD 

♦END DATA 

// ♦ DB638 END 
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EXAMPLE 9 (PROGRAM LISTING NO. 3). The 
Simulator control cards are read in and initializing 
processes are begun. The three analog input cards 
signify card input for data. Note that one or all of 
these cards could have specified the random number 
generator as an input source. Note also that in a pro- 
gram such as this, extreme care must be taken in 
setting up the data cards, remembering that an E 
parameter in column 72 terminates any attempt to 
fill an analog buffer. 

The S56 message reflects the call in the FORTRAN 
program. Note that the parameters are also printed. 
If either of these parameters had been improper, a 
message would be printed accordingly. 

The next block of four PRNTN calls refer to the 
WRITE (M, 10) statement. A FORTRAN call to 
output or input, generally, translates to several 
calls to the I/O subroutine, including busy tests, 
actual I/O, and special functions as in the carriage 
control shown here. The line after S33 gives the 
message which the user would see if the program 
were executed. 

The three CARDN calls listed next are the result 
of the FORTRAN statement 20 READ (N, 30). The 
card image in hexadecimal is printed and the busy 
tests performed. 

Next, in sequence, are four print calls: the re- 
sult of the FORTRAN statement 35 WRITE (M, 40). 
Again, the line after S33 gives the users actual 
printout. 

Note that the FORTRAN statement at 30+1 is an 
IF statement. The Simulation output gives no indica- 
tion of this because no major subroutines are called; 
that is, the Simulator does not show when some 
arithmetic function or subroutine is called. However, 
all instructions of this statement have been simulated. 

The first DAOP call in the Simulator output is the 
result of the FORTRAN CALL DAC statement. 



Again, a rundown of the calling sequence is given in 
S20. The S10 message describes the type of output, 
that is, random, sequential, etc. The four words 
of analog output are given just ahead of the next 
S50 message. The DAOP busy tests are a result 
of the second DAC call. 

Next, in sequence, is a series of analog input 
calls, each one reading some point from cards. 
These are a direct result of the analog input calls 
in the FORTRAN program. 

Again, there are four calls to the PRNTN routine: 
the result of WRITE (M, 65). 

At this point, the IF following statement 65 and 
the IF at statement 90 force a return to statement 
20 and a second "go" through the loop is simulated. 
The message "GOT THIS FAR" is printed out a 
second time, and for a third time, statement 20 is 
executed and a card is read. At this point, the IF 
at 30+1 forces a transfer to statement 120. 

The CALL QUEUE, CALL SHARE, and CALL 
VIAQ are then simulated by the S56 messages. Note 
that in the case of CALL QUEUE, the name of the 
called program TC152 is also printed out. A snap- 
shot of the terminating instruction is then printed. 

Since the user included a *DUMP control card, 
the program is dumped. The addresses are abso- 
lute. The address in statement S98 gives the abso- 
lute address of the first word of the user's pro- 
gram. The XXXX at the end of the dump refers to 
undefined core. 

A dump of the transfer vector may be obtained by 
using a negative number as the lower limit. 

One method of tracing through a FORTRAN pro- 
gram is by strategic PAUSE (I) statements. When 
the Simulator encounters such a statement, it will 
print out the S56 PAUSE message together with the 
appropriate parameter. Thus, some idea of pro- 
gram flow may be obtained. 
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PROGRAM LISTING NO. 3 — EXAMPLE 9 



SIMULATOR TEST CASE 152 



// JOB A 

// * 

// FOR TC152 
♦LIST ALL 

*IOCS(l443 PRINTER ) 
*ONE WORD INTEGERS 
** SIMULATOR TEST CASE 152 
EXTERNAL TC152 

DIMENSION NOUTAC 10 ) , I Nl ( 9 ) t I N2 ( 10 ) , 101 ( 10 ) 
CALL UNMK(-l.-l) 
IXI.T = 
N = 2 
M = 3 
ITOL = 20 
WRITE (M,10> 
10 FORMATC24H1INTERLEAVED AIP.AiS.AIR) 
20 READ(N,30) (N0UTA(I),I=l,4).INi(l>, IN2(i> ,IXIT 
30 FQRMAT(6I6, U) 

IF(IXIT) 12<>,35.120 
35 WRITE (M.40) (NOUTA(I).I=1.4).iNl(l>.IN2(l> 
40 FORMAT (1H.6I7) 

CALL DAC (01101, NOUTAC 1>,N0UTA< 5) > 
50 CALL DAC (0,J) 
GOTO (50, 60), J 
60 CALL AIP (01000, JP, INK 1) ) 

CALL AIS (02001,101(1). 101(3), IN2(1>) 

CALL AIR (02001, 101(1), 101(2), jN2(l>,IN2(l>,Oo 

CALL AIS (02001, IOK 1). 101(3), IN2(D) 
CALL AIR (02001, I0K1), 101(2), >N2(1),IN2(1), 00 
CALL AIP (01000, JP.INKD) 
WRITE(M,65> 
65 FORMAT (13H GOT THIS FAR) 

IF (IABS(ID1(1)-NOUTA(3))-ITOL) 90.90.70 
70 WRITE (M.80) 101(1) 

80 FORMAT (10H 101(1) ■ .I7/17H OUT OF TOLERANCEn 
90 IF (IABS(NOUTA(D-JP)-ITOL) 20,20 ,100 
100 WRITE (M.ilO) JP 
110 FORMAT ( 6H JP . .I7/17H OUT OF TOLERANCE) 

GO TO 20 
120 CALL QUEUE(TC152.1.5> 
CALL SHARE (300) 
CALL VIAQ 
130 GO TO 130 
END 

VARIABLE ALLOCATIONS 
NOUTA=000D INI = 0016 
JP =0031 



IN2 =0020 ID1 =002A IXIT M002B N 



00000000 
00000010 
000000 30 



00000050 



00000060 
00000070 
00000080 
00000090 
00000100 



00000130 
00000140 
00000150 
00000160 
00000170 



00000200 



00000250 
00000260 
00000270 
00000280 
00000290 
00000300 
00000310 
00000320 



00000330 
#002C M #0020 ITOL #002 E I =002F J =0030 



STATEMENT ALLOCATIONS 



10 =0040 30 = 005B 


40 = 005F 65 


=0064 


80 


#006D 


70 *01BB 90 =01C3 


100 =01D2 120 


=01DA 


130 


#01E5 


FEATURES SUPPORTED 










ONE WORD INTEGERS 










IOCS 










CALLED SUBPROGRAMS 










TC152 UNMK DAC 


AIP AIS 


AIR 


IABS 


QUI 


MIOI SUBSC PRNTN 


EBPRT 









110 #0080 20 #0083 35 #0006 50 =0106 60 =0110 



SHARE VIAQ 



COMGO MRED 



MWRT 



MCOMP MIOIX 



INTEGER CONSTANTS 

1=0042 0=0043 2=0044 
300=004C 



3=0045 



20*0046 



4#0047 



1101*0048 1000#0049 2001=004A 



5=004B 



CORE REQUIREMENTS FOR TC152 

common o inskel common 



VARIABLES 



66 PROGRAM 



422 



END OF COMPILATION 



TC152 

DUP FUNCTION COMPLETED 

// DUP 

♦DELET M TC152 

TC152 

D25 NAME NOT IN L/F 

♦S1MULCIL M TC152 TC152 TC152 

♦INCLDTRACE/2800 

♦CCEND 

CLB, BUILD TC152 



CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



92 



♦ CDW 


TABLE 


3E82 


000C 


♦ IBT 


TABLE 


3E8E 


0010 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0054 


♦ VTV 


TABLE 


3FOF 


0006 


*IST 


TABLE 


3F15 


0036 


*PNT 


TABLE 


3F4C 


OOOC 


MAIN 


TC152 


3FE9 




PNT 


TC1S2 


3F4E 




PNT 


TC152 


3F52 




CALL 


UNMK 


4140 




CALL 


AIP 


418A 




CALL 


AIR 


41B8 




CALL 


QUEUE 


42CA 




PNT 


TC152 


3F56 




CALL 


VI AG 


438C 




LIBF 


AIPTN 


43EC 


3F0F 


LIBF 


AIRN 


446E 


3F12 


CORE 




4544 


3ABC 



CLBt TC152 LD XQ 



♦ AIP C 

♦ AIR C 
♦AIS C 

♦ XIO 

♦DUMP 0000 7FFF 

♦START SIMULATION 

S 56 TSX UNMK NOT EXECUTED 

DC FFFF 

DC FFFF 

S 50 293A PRNTN 

S 34-0 LIST PRNTR CARRIAGE CONTROL WORD IS /3100 
S 50 293C PRNTN 

S 33-0 LIST PRNTR OUTPT CONTROL WORD I /2110 
INTERLEAVED AIP.AIStAIR 



S 
S 
S 
S 

s 

S 27-0 CARD 
0000 0000 



50 

21-0 
SO 
21-0 

50 



2928 



2940 PRNTN 

LIST PRINTER BUSY TEST 

2940 PRNTN 

LIST PRINTER BUSY TEST 
CARDN 
.INPUT. WO 
0000 0000 
0000 0000 0000 1000 
0000 0000 0000 0000 
0000 0000 0000 0000 
S 50 292C CARDN 
f S 21-0 BUSY TEST 
S 50 292C CARDN 
S 21-0 BUSY TEST 
S 50 293A PRNTN 



I COUN 
1000 


T I 
2000 


80 
0000 


0000 


0000 


0000 


0000 


2000 


0000 


0000 


0000 


0000 


0800 


2000 


0000 


0000 


0000 


0000 


0200 


2000 


0010 


0080 


0000 


0000 


0200 


2000 


0010 


0040 


0000 


0000 
0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 



50 

34-0 LIST PRNTR CARRIAGE CONTROL WORD IS /3D00 

50 293C PRNTN 

33-0 LIST PRNTR OUTPT CONTROL WORD I /2110 

10 20 1 4096 4097 
50 2940 PRNTN 
21-0 LIST PRINTER BUSY TEST 
50 2940 PRNTN 
21-0 LIST PRINTER BUSY TEST 
50 1A48 DAOP 

20 CONTROL WORD! 1010 ,1/0 AREA ADDRESSl 3F61 tSPECIAL RETURN ADDRESS! 3F11 
10 WRITE OUTPUT RANDOM ADDRESSING 

WORO COUNTl/0004 
0014 0000 OOOA 
1A48 DAOP 

21 BUSY TEST 
50 1A48 DAOP 



21 BUSY TEST 
50 



0001 

S 50 

S 

S 

S 

S 

S 

S 

S 

s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 



.MULTIPLEXER ADDRESS ! 0201 



1A48 AIPTN 
20 CONTROL WORD! 1000 .AREA I3F89 

14 INPUT CARD I +AI D 600010 E 

50 1A48 AISQN 

20 CONTROL WORDI2000, 10 AREAl 3F80 .SPEC IAL ENTRY SOOOO 

14 INPUT CARD ! ♦AI D 600020 E 

50 1A48 AIRNN 

20 CONTROL WORD! 1000 ,10 AREA ADDRESS t 3F81 ,MUL TI PLEXER TABLE ADDRESS! 3F78, RELAY ADORtOOOO 
14 input CARD I +AI D 600020 E 

50 1A48 AISQN 
20 CONTROL WORD! 2000, 
14 INPUT CARD I +AI D 
50 1A48 AIRNN 

20 CONTROL WORD! 1000 .10 AREA ADDRESS 1 3F81 ,MULTI PLEXER TABLE ADDRESS! 3F78, RELAY ADDRIOOOO 
14 INPUT CARD I +AI D 600020 E 

50 1A48 AIPTN 

20 CONTROL WORDI1000 .AREA J3F89 .MULTIPLEXER ADDRESS ! 0201 
14 INPUT CARD J +AI D 600010 E 



10 AREAI3F80, SPECIAL ENTRY 10000 
600020 
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S 50 
S 34- 
S 50 
S 33 
GOT T 
S 50 
S 21- 
S 50 
S 21- 
S 50 
S 27- 



293A PRNTN 
LIST PRNTR CARRIAGE CONTROL WORD IS /3D00 

293C PRNTN 
LIST PRNTR OUTPT CONTROL WORD ! /2110 
HIS FAR 



0000 
0000 
0000 
0000 
S 50 



2940 PRNTN 

LIST PRINTER BUSY TEST 

2940 PRNTN 

LIST PRINTER BUSY TEST 

2928 CARDN 

INPUTt WO 

0000 0000 

0000 1000 

0000 0000 

0000 0000 
CARDN 



i COUN 


T I 


80 












1000 


2000 


oooo 


oooo 


oooo 


oooo 


oooo 


2000 


0000 


0000 


0200 


2000 


0010 


0080 


oooo 


oooo 


0000 


0000 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


0000 


0000 


0000 


oooo 


oooo 


oooo 


oooo 


oooo 



21- 

50 

2 1- 
50 
34- 
50 

33 

50 

21- 

50 

21- 

50 
20 
10 



> CARD 
OOOO 
OOOO 
OOOO 
OOOO 

292C 
) BUSY TEST 

292C CARDN 
) BUSY TEST 

293A PRNTN 
LIST PRNTR CARRIAGE CONTROL WORD IS /3D00 

293C PRNTN 
LIST PRNTR OUTPT CONTROL WORD I /2110 
10 20 1 4096 4097 
PRNTN 

BUSY TEST 



0000 0000 0000 0000 

0200 2000 0010 0040 

OOOO OOOO OOOO OOOO 

OOOO OOOO OOOO OOOO 



0800 


2000 


oooo 


oooo 


OOOO 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 



2940 

LIST PRINTER 
294 PRNTN 

LIST PRINTER BUSY TEST 
1A48 DAOP 
CONTROL WORDJ1010 ,1/0 AREA ADDRESS! 3F61 .SPECIAL RETURN ADDRESS! 3F11 

WRITE OUTPUT - - - RANDOM ADDRESSING 

WORD COUNT! /0004 
0001 0014 OOOO OOOA 
S 50 1A48 DAOP 
BUSY TEST 

1A48 DAOP 
BUSY TEST 

1A48 AIPTN 

CONTROL WORDllOOO .AREA I3F89 .MULTIPLEXER ADORE 
INPUT CARD J *AI D £00010 



21 
50 
21 
50 

20 

14 
50 

20 

14 
50 
20 
14 
50 
20 
14 
50 
20 

14 
50 
20 
14 
50 
34 
50 
33- 
GOT T 
S 50 
21- 
50 
21- 
50 
27- 



1A48 AISQN 
CONTROL WORD 12000, 
INPUT CARD J *AI D £00020 

1A48 AIRNN 
CONTROL WORD! 1000 



ESS ! 0201 

IO AREAI3F80, SPECIAL ENTRY J0000 
£00020 

10 AREA ADDRESSI3F81, MULTIPLEXER TABLE ADDRESS! 



INPUT CARD I *AI D £00020 

1A48 AISQN 
CONTROL WOR012000, 10 AREA! 3F80, SPEC I AL ENTRY 10000 
INPUT CARD I *AI D £00020 

1A48 AIRNN 
CONTROL WOROI1000 ,10 AREA ADDRESS I 3F81 ,MUL TI PL 



S 

s 

s 

s 

s 

oooo 

oooo 

oooo 

oooo 

S 50 



INPUT CARD ! *AI D £00020 

1A48 AIPTN 
CONTROL WORDllOOO .AREA !3F89 
INPUT CARD I *AI D £00010 

293A PRNTN 
LIST PRNTR CARRIAGE CONTROL WORD IS /3D00 

293C PRNTN 
LIST PRNTR OUTPT CONTROL WORD I /2110 
HIS FAR 

2940 PRNTN 

LIST PRINTER BUSY TEST 

2940 PRNTN 
LIST PRINTER BUSY TEST 
2928 CARDN 

INPUT. WO 

oooo oooo 

OOOO 0000 

OOOO OOOO 

OOOO OOOO 

CARDN 



EXER TABLE ADDRESS! 
MULTIPLEXER ADDRESS ! 0201 



3F78, RELAY ADDRJOOOO 

E 



3F78, RELAY ADDRIOOOO 

E 



CARD 
OOOO 
OOOO 
OOOO 
OOOO 
292C 

S 21-0 BUSY TEST 
S 50 292C CARDN 
S 21-0 BUSY TEST 

S 56 TSX QUEUE NOT EXECUTED 
CALL TC152 
DC 0001 
DC 0005 
S 56 TSX SHARE NOT EXECUTED 

DC 012C 
S 56 TSX VIAQ NOT EXECUTED 
S 99 01E3 413B 413D 5400 
S 98 DUMP OF SIMULATED CORE 



1 COUN 


T ! 


80 












OOOO 


oooo 


OOOO 


0000 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 



oooo oooo oooo oooo 

oooo oooo oooo oooo 

oooo oooo oooo oooo 

oooo oooo oooo oooo 



oooo 


oooo 


oooo 


oooo 


1000 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 


oooo 



438C 
3F58 



0001 0000 0000 0000 28D3 3F3B 



94 



3F50 


















FFF2 


0000 


FFFF 


0000 


0000 


0000 


0000 


0000 


3F60 


0000 


0004 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 




3F70 


TO 3F7F CONTAINS 0000 






















3F80 


0002 


0001 


0028 


0001 


0002 


0003 


0014 


0005 


0002 


0018 


FFFD 


0000 


0000 


0000 


0000 


0000 


3F90 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0001 


0000 


0002 


0003 


0014 


0004 


3FA0 


0440 


03E8 


07D1 


0005 


012C 


5018 


F1C9 


D5E3 


C509 


03C5 


C1E5 


C5C4 


40C1 


C9D7 


6BC1 


C9E2 


3FB0 


6BC1 


C9D9 


BOOD 


2006 


9006 


2001 


B003 


5001 


6B40 


2007 


9006 


B004 


500D 


40C7 


D6E3 


40E3 


3FC0 


C8C9 


E240 


C6C1 


0940 


B008 


500A 


40C9 


C4F1 


4DF1 


5D40 


7E40 


2007 


7000 


5011 


4006 


E4E3 


3FD0 


4006 


C640 


E306 


03C5 


D9C1 


D5C3 


C540 


B012 


5006 


4001 


0740 


7E40 


2007 


7000 


5011 


4006 


3FE0 


E4E3 


4006 


C640 


E306 


D3C5 


D9C1 


05C3 


C540 


BO 10 


1010 


9400 


3F9A 


0400 


3F58 


1010 


9400 


3FF0 


3F9A 


0400 


3F5A 


5400 


4140 


3F58 


3F5A 


C400 


3F9B 


0400 


3F83 


C400 


3F9C 


0400 


3F84 


C400 


4000 


3F9D 


0400 


3F85 


C400 


3F9E 


D400 


3F86 


5392 


3F85 


3FA5 


5395 


53AA 


3F84 


3FB3 


C400 


3F9A 


4010 


0400 


3F87 


53A1 


3F8A 


FFFF 


3F87 


8001 


539E 


3F65 


7401 


3F87 


C400 


3F87 


9400 


3F9F 


4C08 


4020 


4012 


6500 


0000 


539E 


3F6E 


539E 


3F78 


539B 


3F83 


5395 


C400 


3F83 


4C20 


4132 


5392 


3F85 


4030 


3FB7 


C400 


3F9A 


D400 


3F87 


53A1 


3F8A 


FFFF 


3F87 


8001 


539E 


3F65 


7401 


3F87 


C400 


3F87 


4040 


9400 


3F9F 


4C08 


4035 


6500 


0000 


539E 


3F6E 


539E 


3F78 


5395 


6500 


0000 


7500 


3F65 


7000 


4050 


6D00 


405C 


6500 


FFFC 


7500 


3F65 


7000 


6000 


4050 


5480 


3E36 


3FA0 


3F65 


3F61 


5480 


3E36 


4060 


3F9B 


3F88 


6580 


3F88 


53A4 


0002 


405E 


4068 


6500 


0000 


7500 


3F6E 


7000 


6000 


4073 


5400 


4070 


418A 


3FA1 


3F89 


3F6E 


6500 


0000 


7500 


3F82 


7000 


6000 


408C 


6500 


FFFE 


7500 


3F82 


7000 


4080 


6D00 


408D 


6500 


0000 


7500 


3F78 


7000 


6000 


408E 


5480 


3E35 


3FA2 


3F82 


3F80 


3F78 


6500 


4090 


0000 


7500 


3F82 


7000 


6000 


40AE 


6500 


FFFF 


7500 


3F82 


7000 


6000 


40AF 


6500 


0000 


7500 


40A0 


3F78 


7000 


6D00 


40B0 


6500 


0000 


7500 


3F78 


7000 


6DO0 


40 Bl 


5400 


41B8 


3FA2 


3F82 


3F81 


40B0 


3F78 


3F78 


3F9B 


6500 


0000 


7500 


3F82 


7000 


6000 


40CB 


6500 


FFFE 


7500 


3F82 


7000 


6D00 


40C0 


40CC 


6500 


0000 


7500 


3F78 


7000 


6000 


40C0 


5480 


3E35 


3FA2 


3F82 


3F80 


3F78 


6500 


0000 


40D0 


7500 


3F82 


7000 


6000 


40ED 


6500 


FFFF 


7500 


3F82 


7000 


6D00 


40EE 


6500 


0000 


7500 


3F78 


40E0 


7000 


6D00 


40EF 


6500 


0000 


7500 


3F78 


7000 


6D00 


40F0 


5400 


41B8 


3FA2 


3F82 


3F81 


3F78 


40F0 


3F78 


3F9B 


6500 


0000 


7500 


3F6E 


7000 


6D00 


40FD 


5400 


418A 


3FA1 


3F89 


3F6E 


5392 


3F85 


4100 


3FBC 


5395 


6500 


0000 


C500 


3F82 


6500 


FFFE 


9500 


3F65 


0400 


3F58 


5480 


3E34 


3F58 


9400 


4110 


3F86 


4C08 


411B 


5392 


3F85 


3FC5 


6500 


0000 


539E 


3F82 


5395 


6500 


0000 


C500 


3F65 


9400 


4120 


3FS9 


D400 


3F58 


5480 


3E34 


3F58 


9400 


3F86 


4C08 


400B 


5392 


3F85 


3F08 


539B 


3F89 


5395 


4130 


4C00 


400B 


5400 


42 C A 


5400 


3F56 


3F9A 


3FA3 


5480 


3E3E 


3FA4 


5400 


438C 


4C00 


4130 


0000 


4140 


0000 


OCOO 


0032 


OCOO 


0034 


6934 


6A35 


6100 


6680 


4140 


C132 


F680 


0000 


0039 


C134 


F680 


4150 


0001 


0036 


C164 


4C18 


416B 


C680 


0000 


E16C 


0173 


C680 


0001 


E160 


E973 


4C18 


416B 


C027 


4160 


E96C 


0025 


C025 


E96D 


D023 


CODA 


0174 


C021 


D173 


4480 


0078 


C12E 


E01A 


D12E 


C16E 


E017 


4170 


D16E 


C130 


E015 


0130 


C16F 


E012 


D16F 


7402 


4140 


6500 


0000 


6600 


0000 


OCOO 


002E 


OCOO 


4180 


0030 


oCoo 


OOAO 


OCOO 


00A2 


4C80 


4140 


0000 


0000 


0083 


40FB 


4480 


009A 


C824 


5480 


3E2B 


4190 


4820 


7019 


C33D 


E01D 


901F 


4818 


700E 


6680 


0036 


C200 


033E 


C201 


D33F 


7402 


0036 


C80E 


41A0 


DB40 


COOE 


D342 


4F00 


003A 


C009 


D33E 


C008 


D33F 


4F00 


003A 


C007 


5480 


3E2A 


0000 


4480 


41B0 


009B 


FOOO 


5304 


003C 


3000 


0000 


53D7 


003C 


40EC 


4480 


009A 


C8FA 


5480 


3E2B 


D400 


0037 


41C0 


D342 


9052 


D343 


C33D 


E058 


9054 


4C18 


42 6A 


C342 


4808 


7032 


7401 


0036 


6680 


0036 


C200 


41D0 


0340 


8042 


D341 


C400 


0037 


1001 


8400 


0036 


D400 


0036 


6580 


0036 


C330 


E039 


0400 


0036 


41E0 


C33D 


E03A 


D33D 


C340 


7400 


0036 


802D 


D33E 


C100 


0344 


7400 


0036 


8027 


D33F 


91FF 


4830 


41F0 


700A 


C2FF 


9200 


4808 


7006 


E828 


0345 


7400 


0036 


7006 


7032 


6E00 


0036 


C0B9 


5480 


3E2A 


4200 


C200 


0680 


0000 


C100 


D580 


0000 


C345 


900D 


0780 


0041 


74FF 


0037 


7015 


C340 


0680 


FFFF 


4210 


C344 


D580 


FFFF 


702F 


0001 


0002 


OFFF 


0020 


1000 


3000 


4000 


5000 


FF1F 


FOOO 


COOO 


0000 


4220 


4480 


009B 


7202 


C200 


D680 


FFFD 


80ED 


D341 


7102 


C100 


0580 


FFFD 


70C1 


C343 


4818 


7042 


4230 


C342 


4820 


7044 


C400 


0037 


90DE 


4820 


70C8 


C200 


0680 


0000 


C100 


D580 


0000 


C345 


9004 


4240 


E0D5 


D780 


0041 


C33D 


E0D5 


4818 


7007 


C101 


0342 


C006 


0343 


C0D5 


D344 


7002 


C8D1 


DB42 


4250 


C33D 


E0C6 


4820 


702C 


1010 


D341 


7102 


6000 


0036 


1010 


D340 


C330 


EOCO 


90BC 


4810 


7006 


4260 


C330 


E0B4 


E8B5 


D33D 


4F00 


003A 


C330 


EOAE 


E8B0 


70F9 


C8B5 


DB3E 


C330 


E0A8 


E8AC 


0330 


4270 


4F00 


003A 


C345 


E0A2 


0680 


0000 


70CC 


1804 


D342 


C345 


9099 


0680 


0000 


74FF 


0037 


70A2 


4280 


C33D 


4804 


7011 


6780 


0067 


53D7 


0000 


70FD 


C03B 


6680 


42C4 


6780 


0068 


0341 


C102 


D20A 


4290 


C103 


D20B 


7102 


70C2 


6780 


0067 


5307 


0001 


70FD 


C02B 


6680 


42C5 


70EE 


0000 


1010 


1082 


42A0 


oooc 


1081 


4804 


700B 


1010 


108D 


D007 


4400 


0000 


42A0 


42AE 


4C80 


429D 


0000 


0000 


C019 


42B0 


OOFC 


70F2 


0000 


1010 


1082 


DOOC 


1081 


4804 


700D 


1010 


1080 


0007 


4400 


0000 


42C2 


42C3 


42C0 


4C80 


42B2 


0000 


0000 


429D 


42B2 


C002 


DOFA 


70F0 


0003 


0000 


4480 


009A 


7401 


0036 


C400 


4200 


0036 


807A 


D33A 


C780 


003A 


0342 


C480 


0036 


D330 


CF80 


0030 


4C08 


42FE 


0B3E 


6680 


007A 


42E0 


C400 


007A 


A068 


1090 


8400 


0079 


0400 


0037 


D341 


1810 


0343 


6580 


0037 


C100 


4C18 


4302 


42F0 


B33F 


7015 


7014 


407C 


C100 


B33F 


7057 


7056 


C780 


0042 


71FE 


B100 


7060 


706C 


7403 


0036 


4300 


4480 


009B 


6000 


0037 


C400 


0037 


0343 


71FD 


72FF 


70E3 


4065 


C343 


4C18 


4377 


C780 


0043 


4310 


4C20 


434E 


C343 


9039 


0343 


C341 


9036 


0341 


C343 


0400 


0037 


6680 


0037 


OCOO 


002E 


OCOO 


4320 


0030 


6E00 


0037 


C341 


9400 


0037 


4C08 


4353 


7203 


C780 


0042 


8200 


70F4 


70F3 


4041 


B200 


4330 


7010 


701C 


C780 


0043 


4C20 


434E 


C343 


D400 


0037 


6103 


C200 


D480 


0037 


1810 


D200 


7201 


4340 


7401 


0037 


71FF 


70F6 


72FD 


6E00 


0037 


C400 


0037 


0343 


7002 


0003 


0001 


0002 


OCOO 


002E 


4350 


OCOO 


0030 


708B 


401C 


C780 


0043 


4C20 


434E 


C343 


D400 


0037 


C780 


0042 


D480 


0037 


7401 


4360 


0037 


C33E 


0480 


0037 


7401 


0037 


C33F 


D480 


0037 


7094 


OCOO 


002E 


OCOO 


00 30 


7102 


7097 


4370 


0000 


OCOO 


0032 


OCOO 


0034 


4C80 


4370 


6100 


C780 


0042 


0176 


CB3E 


0974 


COOO 


0173 


C33A 


4380 


eocB 


D343 


C780 


0043 


0343 


C780 


0043 


D177 


4480 


0078 


70DE 


0078 


0000 


6580 


0079 


7101 


4390 


6680 


007A 


C100 


00 54 


4C18 


43C9 


4047 


6951 


C100 


D04E 


7102 


C100 


D04D 


71FE 


4038 


72FF 


43A0 


7001 


700B 


7103 


C100 


4C18 


439F 


C041 


4036 


B100 


70EC 


1000 


402B 


70F2 


40 30 


6680 


43E9 


43B0 


C200 


9036 


4C20 


438D 


7202 


C200 


9033 


4C20 


438D 


C200 


002C 


1810 


D200 


72FF 


C200 


D026 


43C0 


1810 


0200 


72FF 


D200 


4012 


4480 


006A 


0000 


43E6 


7103 


72FF 


70C6 


C400 


0029 


4C08 


4305 


43D0 


D0F6 


5480 


3E3E 


43C7 


70B8 


3000 


70B6 


0000 


OCOO 


002E 


OCOO 


0030 


4C80 


4307 


0000 


OCOO 


43E0 


0032 


OCOO 


0034 


4C80 


430E 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


4480 


OOAC 


5480 


43F0 


3E29 


7400 


4402 


700A 


C02C 


1008 


4C10 


43FB 


C480 


4422 


7001 


C026 


0005 


0058 


C480 


0037 


4400 


617F 


6600 


0000 


4804 


721E 


1804 


0346 


1804 


0347 


1804 


4C20 


4415 


C204 


4C20 


4411 


7401 


4410 


0037 


7401 


0037 


5480 


3E28 


1801 


4C04 


445B 


617F 


09B3 


09B5 


C204 


4C08 


4424 


09AF 


09B1 


4420 


70F7 


5480 


3E44 


FFFD 


C201 


E113 


D201 


1010 


0219 


C346 


100F 


1808 


8201 


D201 


C347 


100E 


4430 


180B 


8201 


0201 


7401 


0037 


C480 


0037 


D20B 


7401 


0037 


C480 


0037 


0200 


C680 


0000 


1003 


4440 


4C28 


4444 


C105 


7001 


1010 


8106 


D20A 


E106 


D204 


C1B8 


D21C 


C1E9 


D217 


7401 


0037 


C480 


4450 


0037 


D213 


OAOO 


C20B 


4480 


0062 


0000 


D21A 


COCA 


D214 


70B6 


0A14 


C204 


4C18 


4464 


C21A 


4460 


4C08 


4464 


74FF 


0007 


7000 


1010 


D20A 


D20C 


0211 


0204 


D20F 


D219 


D21A 


70A3 


0000 


4480 


4470 


OOAC 


5480 


3E29 


7400 


4485 


700B 


C021 


1008 


4C10 


447D 


C480 


4499 


7001 


C01B 


D006 


D400 


4480 


4529 


617F 


C480 


0037 


6600 


0000 


4804 


721E 


1804 


034C 


1804 


0340 


1804 


4C20 


44 9 A 


C204 


4490 


4C20 


4494 


7401 


0037 


7401 


0037 


5480 


3E28 


5480 


3E44 


D1B7 


1010 


034E 


034F 


C03E 


6580 


44A0 


0036 


71FB 


703C 


4080 


44A9 


44AB 


44AA 


44AE 


44A0 


4520 


034F 


034E 


7001 


D34F 


617F 


09B3 


44B0 


09B5 


C204 


4C08 


44B7 


09B1 


09B1 


70F7 


C34F 


0219 


7401 


0037 


C480 


0037 


D001 


6500 


0000 
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44C0 6916 C10O 1O01 4C02 44CB 4C28 44E5 7020 1001 1802 D001 7500 0000 7101 C100 F580 

44D0 0000 4C20 44DF C100 800« D004 9005 4C18 44E8 6500 0000 70E5 0000 0001 0020 613C 

44E0 6680 0037 4C80 0072 8000 1001 1802 D100 617F C480 0037 D206 C207 E113 E8EF D207 

44F0 C34C 100F 1808 8207 D207 C340 100E 1803 8207 D207 7401 0037 C480 0037 R206 7401 

4500 0037 C480 0037 D213 7401 0037 C480 0037 D21B C1B8 D21C C1EV D217 C34E 4C04 451F 

4510 C680 0018 4C20 4519 613C 6680 0037 4C80 0072 7401 0037 C480 0037 D212 D20B 0A06 

4520 0A08 COOA 0214 C0B9 D204 0211 C206 4480 0062 0000 D21A 7013 FFFD 0A14 C204 4C18 

4530 4536 C21A 4C08 4536 74FF 0007 7000 1010 020A 020C D211 D204 D20F D219 021A 4C00 

4540 4494 0000 0000 0000 XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX 

4550 TO BF4F CONTAINS XXXX 

BF50 XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX 

N04 READY READER 
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Data Manipulation 

EXAMPLE 10. RESERVING A FILE AREA IN THE 
CORE LOAD AREA. The only method of reserving 
a file area in the Core Load Area on disk is through 
an *STOREDATA function. Depending on the intent 
and purpose of the user at the time this function is 
performed, two options are open to him: 

1. He may wish to reserve (that is, set aside) a 
file area in the Core Load Area for future 
use. The source input may be data from cards 
(D in column 11 and RD in columns 13-14) which 
is stored directly to its destination area (FX in 
columns 17-18), or it may be information in the 
Nonprocess Working Storage (D in column 11 
and FX in columns 17-18) which is physically 
moved to a data block that starts at the begin- 
ning of the next available sector in the Core 
Load Area. Note that in both cases, the input 
may be valid or invalid information. 

For example, if the data cards contain zeros 
throughout, a new file area will be established. 

2. He may elect to move or transport a data block 
of true or valid information from the start of 
Nonprocess Work Storage into the Core Load 
Area. 

To reserve a data file, therefore, implies that there 
is movement of information or data which may be 
valid or invalid. Note that the *STOREDATA func- 
tion transfers this information to disk without any 
change of format. 

To accomplish this, certain parameters must be 
known to DUP and the Core Load Builder. These 
are: 

• Type of source input 

• Logical drive number 

• Destination area 

• Name of data file 

• Sector count and/or word count 

Figure 39 gives the sequence of control cards that 
might be used in a typical situation, where the source 
input is data cards. 

A data file, FILE1, one sector long, is reserved 
in the Core Load Area, and given a FLET entry. 
Since this is a data FLET entry, the control card 
sector count, or the sector equivalent of the word 
count, is contained in the entry. 



The DEFINE FILE statement (see IBM 1130/1800 
Basic FORTRAN IV Language, Form C26-3715) 
specifies to the FORTRAN Compiler the size and 
quantity of disk data records within a file (or files) 
that will be used for processing with a particular 
program and its associated programs; in this exam- 
ple, one data block of 320 words is used. Since we 
are storing data to be used by a FORTRAN program 
from cards, the associated *FILES control record 
must contain the identical name (that is, FILE1) of 
the data block established by the *STOREDATA 
function. Note that it is from the *FILES card that 
the Core Load Builder obtains the necessary data 
(name, file number and drive code) to construct the 
DEFINE FILE TABLE within a core load. This is a 
three-word table which equates program defined file 
numbers to symbolic disk data files specified on the 
*FILES card. 

We have seen that in moving data from the Non- 
process Working Storage to the Core Load Area, the 
direction of movement is from the start of Non- 
process Working Storage on the disk drive specified. 



SAMPLE CODING FORM 


I —10 


1 1-20 


21-30 


31-40 


41-50 


■ |2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4J5|6|7|8|9|0 


1 12|3|4|5|6|7|8|9|0 1 |2|3|4|5|6|7|e|9|o 


/l/l \JiO]fi M | tu 1 ll II II III III 1 1 M llllll ll 1 1 III 


, , 1, , , , 1 


/i /i fltfltf , , , 1 , i , , 1 i , i i 1 , , i i 1 , i i , 1 , , , i 1 , i , , 1 i i 


i I 1 I i i i 


*&Tiad£DA,TAto ,*« 1 fiXi i l*Zi£i£iil , , , ,00U i , i [003,2,01 , , 


iil,,,, 




, , 1 1 , , ,J 


i i i ,*l , ,(,o/*l7iA iCpAteids, ,s|qM*,c,£t j/tjwri), , , 1 , , , , 1 , , 


. 1 1 . • . .J 


1 1 1 1*1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 1 


I i 1 , i , i 


/|/l JlO\S Ulllllll IIM ImmIi.mIi lllllllllll 


, i ll , i , 


/i/i ,/rok a<-Aha iiliiiiliiiiinnii iiiIimiIii 


_i_i_Lll_l i J 


fi-ZiflOSl ,(,7:y,A£- l tMj;7\£-^ ) a l 4\4,S ,fifU,Mr,£X\), ,,,!,,,,!,, 


, , 1 , , I , 


tWiTa/l alx, 1 , . . . 1 i i . . 1 , , , , 1 ,'', . , 1 , , , , 1 , . . , I . . 


, , 1 1 , , , 


UMt/fcH , , , 1 , , , , 1 , , , , 1 , , , , 1 , , , , 1 , , , , 1 , , , , 1 , , 


,,;,.,- 


mil ,Q£;fzW& ,A-^i£i ,j&( l i, ) £ l 2\a Jl i/ lfl 2]r l e<c l ), I , , , , 1 , , 


ii i 


■ i i . 1 . . , .*l , , , . 1 ... , . 1 , , , , 1 . , , , 1 , . ... 1 . . , . 1 . . 




i , i , 1 , , , i*i . . . . 1 . i i i 1 i . . . 1 i . , , 1 . . . i 1 i i i i 1 i i 


X_L- 1 1 .1 1 L.J 
, , 1. . I lj 


i i i i 1 i i . .'I . . . i 1 i i i i 1 i i i . 1 , i , , 1 i i , . 1 . , , , 1 , , 


, , i , 1 ■w^/.rlfiC^.s.'li.). i^hT|s,7: , , I , , , , I , , , , 1 , , , , l , , 


1 l 1 l 1 1 1 1 


i i i i 1 i . i .'I . . . . l i i i i 1 i i i i 1 , . . . I . i i i 1 i , i i 1 , , 


X, 1 1 li 1 J 


i i i , 1 . , . ,»l , , , , l , , , , i , , , , l , , , , 1 , , , , l , , , , 1 , , 


^IxllJ 


iiiiI ,CA,LJ.I/I,AQi 1 i i i i 1 i , ■ , 1 , i , , 1 i iiiIimiIii 


■_J_I u, J 


i i i i 1 ,£Ma 1 i i i i 1 i I i i 1 i i i i 1 i i i , 1 i i i i 1 , , , i 1 i i 


■_i_lj_U J 


/, /, \Cfdp, nil, Mllllllliinlnilll MlllMllll 


, , 1 , , , , 1 


*srioiA?|£;c,:z; , W, &q | 1 , 1 , \AamA A^rM A£.,tW,A , , 1 , , 


, , 1 , , , , 1 


*)RTiL,4sfiJi3, 3 \/tf,£. l ed\ J \?\'>i 1 1 1 , , , 1 , , , , 1 1 , , , 1 , , , , 1 , , 




*iCic,£;/^fl ! .J 1 1 1 1 1 i 1 1 1 1 11 mI 1 mi 1 11 1 1 11 1 1 li 1 


^IxxlJ 


/|/| |£"/40, m,Ii 1 1 ll II 1 ll m ill 1 1 nil 1 ill Iim III 


nllllll 


1 1 1 1 1 1 1 1 I 1 I 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 



Figure 39. Reserving a File Area in the Core Load Area 
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However, in the case of data files referenced by 
FORTRAN I/O in Nonprocess Working Storage, the 
direction of movement starts from the end of Non- 
process Working Storage, and therefore the move- 
ment of data through the *STOREDATA function does 
not actually move a data file established by the exe- 
cution of a FORTRAN- written program . 

EXAMPLE 11. DUMPING A PROGRAM OR DATA 
FILE FROM THE CORE LOAD AREA. A program 
or a block of data in the Core Load Area may be 

1. moved to the Nonprocess Working Storage, 

2. punched into cards, or 

3. printed on the List Printer. 

Figure 40 illustrates these three cases. 

The primary difference between the two dump 
functions, *DUMP and *DUMPDATA, lies in the 
handling of relocatable programs. *DUMP converts 
relocatable programs from disk system format 
either to card system format when dumping to cards, 
or to printer format when the List Printer is sel- 
ected as the I/O media. *DUMPDATA performs no 
conversion and outputs a relocatable program as data 
identical to its original format. 

Programs and/or data in the Core Load Area are 
assumed to be in disk core image format. The name 
of the program or data file must always be given. 

Note that when dumping from the Core Load Area 
to punched cards, an *CCEND control card is punch- 
ed out as the last card in the output deck. This card 
also contains the word and sector count needed in a 
*STOREDATA operation. (Note also that, although 
the *STOREDATA function requires that these counts 
be contained in the control card, the punched- out 
*CCEND card may be used in a subsequent store of 
the dumped core load. ) PN specifies the Card Punch 
as the principal system output device, while PR 
specifies the List Printer. 

In the same fashion, it is also possible to dump a 
mainline, combination, or interrupt core load to 
Nonprocess Working Storage or to any available I/O 
media. 

EXAMPLE 12. LOADING A PROGRAM OR DATA 
BACK INTO THE CORE LOAD AREA. One of the 
features of the Disk Utility Program (DUP) is the 
ability to load (that is, store) a previously built core 
load, which has been dumped to cards by the 
*DUMPDATA function, back to the Core Load Area. 
One significant use of this ability is the reordering 
(that is, rearrangement) of the position of core loads 
within the Core Load Area. 



Consider the following example. Core loads 
ALPHA, BETA1, DELTA, and GAMMA reside in 
this order- sequence in the Core Load Area. It is 
desired, for chaining purposes, to use them at on- 
line time hi some other arrangement: say, GAMMA, 
BETA1, ALPHA, and DELTA. The four core loads 
are first dumped to cards by a series of *DUMP- 
DATA operations, and then deleted from the Core 
Load Area. A reload of the new sequence of core 
loads is now performed in the order desired. The 
result is a greater efficiency in the usage of the 
disk by the reduction of disk seek time. 

Figure 41 illustrates a possible card deck ar- 
rangement for this situation. 

EXAMPLE 13. DUMPING A PROGRAM FROM THE 
RELOCATABLE PROGRAM (OR USER) AREA. A 
dump of a user-written or IBM program may be made 
from the User Area to any of the following I/O media: 

1. Nonprocess Working Storage (NPWS) 

2. Punched cards 

3. List Printer 



SAMPLE CODING FORM 


1 — 10 


11-20 


21-30 


31-40 


41-50 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|e|9|0 


l|2|3|4|5|6|7|8|9|0 1 


|2|3|4|5|6|7|8|9|0||2|3|4|5|6|7|8|9|0 


/i/i * tavMP, 


IA x pxd6&m \r\a tf/towoct 


SS M&KZrtfa i. 


swfe 


V5,«j 


/,/i <J&\8 , , , 




Mllllllll 






/i/i fltffc , , i 


i i i i 1 i i i i i i i i i i i i i i 1 


. , , 1 . . 






*iDX/MP\ , , , , 


, ,FX4 itVfSiflf, \A,L,PJ/A . ■ 1 


, ! . . 






*\UJMP\L£X , 




, : , 






/,/, A |Q6W,/> 


A wpIg&am \rc, ,C*|*,0i5i , 1 


, i , i , , , , i , , 






/i/l tfOW . , , 




... i .... j . i 






/i'i M\R , , , 




: . 1 - , , 






*\WMP\ , , , , 


, AX,a PH , \A,i.,PMA , , , , 1 


, , , 1 ,,,,!, , 






i i i i«l , ■ . , 


> 1 1 ll 1 1 1 1 1 1 1 1 ll 1 1 u 1 








i i , ,«l , , , / 


&LAH& i CiM&DSS | , 1 , , , , 1 








1 1 1 1*1 , M , 




... 1 






totwiPk.e,r, . 




... 1 






/i/i * \PPAP, 


A >QArtA> i5i^iO|c,XJ ,7Td <LJS,7\ 


PFsZrtr&K , , , 






'i'i JoW , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 1 


m.I.n.Im 






/./. MM , , . 




1 ; , 






HmttftaArA, 


, FXfi MR , \^PmA . , i 


,!.,,, 






X&U*iFk.G7: , 


a: , , , i , , , , i , , . , i , , . , l 


: , , 1 






/i/i &Ma , , , 




■ 






i i i i 1 i i i i 


MmIMmImmImmI 


In 







Figure 40. Illustrating Various Card Arrangements in Dumping a 

Program/Data to Nonprocess Working Storage, Punched 
Cards, and the List Printer 
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SAMPLE CODING FORM 


i — to 


11-20 


21-30 


31-40 


41-50 




l|2|3|4|5|6J7|8|9|0 l|2|3|4|5|6|7|8|9|0 1 |2|3|4|5|6|7|8|9|o l|2|3|4|5J6|7|8|9|0 1 J2| 3|4J5|6| r|s|9|o 


A/i * tot/MP, \aox£; kaA0&\ \T& cakps. 1 ,', 


i 1 i i i i 1 i 






/i/i iJola m Jin .1 n i i in ni m n i. i 


, 1 , , , , 1 i 






/l/l iQtflfl MlllM.lllllllll.llMlll 


i 1 i i i 1 1 i 






mt/MPtoAT.A, 1 , \FM4 \FH i $,LJ>JtA, , , , ■ 1 , , 


J,,,,!, 






HdHiMPtaArAt 1 , rtxri ,m , VarM . . . . i . . 


, 1 ,, , , 1 , 






MHPtaArA, 1 , ,fi)bll rttf i IPerA7TA , , , , 1 , , 


i 1 i i i i 1 i 






*&/AHP\DA,TA 1 , fxa iW, i \GAMm . . . . t , 


,1,11,1, 














i i i i 1 .•■ . ,(\&LA*Ui CAXd&\ , , 1 , , , , 1 , , 


, 1 i, i , 1 , 






1 1 1 1 1 ,*l I 1 1 1 1 1 1 ! 1 1 1 1 1 i I I 1 1 I 1 ! | | | | 
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Figure 41. Reloading Core Loads to User Sequence 



Since the source specified is the User Area, a 
LET search is performed. In dumping a program to 
NPWS, a check is made to see if there is sufficient 
space in the designated area; if so, a physical move 
operation takes place. As mentioned earlier (see 
Example 11) the *DUMP function converts relocatable 
programs from disk system format to a format of the 
I/O media selected. (Note that the print format to 



list printer is identical for both *DUMPDATA and 
*DUMP). 

Figure 42 gives a typical sequence of control 
cards used. 

Note that a relocatable program may also be 
dumped from the Temporary Area to any I/O media. 

A relocatable program dumped from the User 
Area to punched cards may be later reloaded, if de- 
sired, to the User Area by an *STORE function. 

EXAMPLE 14. MOVING A DATA FILE (OR FILES) 
WITHIN THE CORE LOAD AREA. This is equivalent 
to dumping a data file (or files) from one disk to 
another — that is, the copying of process data. 
Figure 43 illustrates one possibility. 

EXAMPLE 15. LOAD A PROGRAM/DATA BACK 
INTO THE NONPROCESS WORKING STORAGE (see 
Figure 44). A reloading operation implies that the 
program or data to be reloaded is the product of an 
♦DUMP or *DUMPDATA function. That is, they 
must be in binary format (54 words per card). 

Data card input decks have seventy-two columns 
of data, and a seven-column sequence number. Se- 
quence columns 78-80 are assumed to be numeric 
(the first being 001) as punched during a ♦DUMP- 
DATA function. In the reload operation, the card 
deck is read and stored, and a check made for con- 
secutive sequence, modulo 1000. A sequence break 
is interpreted as a potential end of the deck. If the 
card generating the break is a *CCEND card, the 
*STOREDATA proceeds to store the card data 
directly into its destination area. 



Implementation of LOCAL s 

An introduction to the term "LOCALs" has already 
been made in the introductory section: Overview 
of the IBM 1800 Time-Sharing Executive System . A 
local is classified in TSX as a subprogram or sub- 
routine that is associated with a given core load, but 
not initially loaded with that core load. When a 
call for a local is encountered during the execution 
of the core load, the local is read in from the disk, 
overlaying the area between the end of the core load 
and the beginning of COMMON, unless the local is 
already in core. Control is then passed to the local 
routine. 

Locals may be employed as individual subpro- 
grams or groups of subprograms. In the latter case, 
whenever a call for a given local is encountered, 
the entire group of which it is a member is loaded. 
Subsequent calls for other locals within the same 
group may then be made without necessitating 
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SAMPLE CODING FORM 
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Figure 42. Dumping a Relocatable Program from the User Area 



SAMPLE CODING FORM 
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Figure 43. Moving a Data File within the Core Load Area 
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Figure 44. Reloading a Program to Nonprocess Working Storage 
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reloading from disk. Since all local groups occupy 
the same area in core, a call for a local in another 
group will involve a load from disk of the new group, 
overlaying the first group. At this point, another 
call to a local in the first group will require reload- 
ing that group from disk. Local groups or blocks are 
important for the following reasons: (1) specification 
requirements, (2) disk space utilization, and (3) disk 
efficiency. The area of core used is directly propor- 
tional to the size of the largest block. Data is passed 
to or from a local through its parameters, COMMON, 
or working storage. 

The only difference between a local and a normally 
called subroutine is that a localized subroutine is not 
assembled as part of a core load. After the associa- 
ted mainline program and all of its in-core subpro- 
grams (and their in-core subprograms) are relocated, 
each local subprogram block is converted to core 
image format and stored, sectorized, immediately 
following the core image core load, as shown in the 
schematic diagram below (Figure 45). See also 
Figure 3. 

One advantage of the local feature is that logical 
subroutines can now be broken off from a large pro- 
gram. This means a virtual extension of core. 
There is no theoretical limit to the number of local- 
ized subprograms that can be implemented: the user 
can specify any number of locals within a group as 
long as the sum total of all assembled relocatable 
programs does not exceed the size of the Local Sub- 
routine Area. 



Communications Linkages 

At object time, locals are located between the end 
of the main core load and COMMON. Linkage to and 
from locals is accomplished via a loader called 
FLIP (a miscellaneous subroutine within the TSX 
Subroutine Library) as follows. 



Core Load Builder as part of each core load in 
which locals are specified. The table provides the 
linkage between the core load and the localized sub- 
programs via the FLIP relocatable subroutine. 
There is one entry in the LPT for each entry point in 
the specified local subroutines. Each LPT entry 
has the following format: 



WORD 


CONTENTS 


MEANING 


X 


DC 


A linkage word 


X+l 


BSIL 


Long BSI to FLIP routine 


X+2 


FLIP 




X+3 


WC 


Word count of the local 
group with which this routine 
is loaded 



X+4 



SA 



X+5 



EP 



Sector address of the first 
sector for the local group. 
This address is relative to 
the first local sector 
for the core load 

Absolute address of the 
entry point when the local 
group is loaded 



The word at X is used for the return linkage; 
X+l and X+2 are executed to link to the FLIP routine 
which uses the word count and sector address at 
X+3 and X+4 to load the proper local group from 
disk, if required. The necessity for loading is 
based upon a comparison of the WC and SA words 
with those of the local group currently in core. The 
word at X+5 is the entry point of the specific local 
called, and control is passed to that point by the 
FLIP routine via a BSI I X+5 after the requisite local 
is loaded. Thus, the called local can return in 
normal fashion, and will actually return to FLIP 
which completes the return linkage by a BSI I X. 



CALLS. A call to a local consists of a BSI L X, 
where X is the location of a six-word entry in the 
Local Parameter Table (LPT) which is built by the 
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Figure 45. 



Showing the Relationship of Local Groups or Blocks to 
Associated Core Load within the Core Load Area on Disk 



LIBFs . A LIBF to a local consists of a short BSI to 
an entry in the Variable Transfer Vector (VTV) 
associated with each core load. The VTV logic 
then executes a BSI L Y where Y is the first word 
of a LPT block, similar to that just described. The 
only difference between the two tables is that a LPT 
block for a LIBF function will contain a BSI L 
FLIP+2 instead of a BSI L FLIP. The alternate 
entry point allows the FLIP routine to make CALL 
and LIBF requests appear identical for return pur- 
poses. For a LIBF request, FLIP moves the first 
word of the VTV entry, set by the short BSI of the 
LIBF request, to the first word of the LPT block 
used for entry to FLIP. 
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Restrictions on the Use of LOCALS 

Certain rules apply with respect to the constitution of 
locals, calling locals, and to calls made by locals. 
These are summarized below under legal and illegal 
uses. 

Legal Uses 

A mainline can call a local. Note that a mainline 
(which can be a process, interrupt, combination, 
or nonprocess core load) can, by definition, in- 
clude any subroutines loaded with the core load. 
Although routines in the main core load can call 
locals, all such calls must be completed (that is, 
corresponding returns to the calling routine 
made) before any call on a local in a second local 
group can be made. 

A local can call a mainline. 

A local can call a skeleton subroutine. 

A local can call a local provided both locals are 
contained in the same local group . 

Illegal Uses 

A local cannot call another local in a different 
local, group. 

Due to the transient nature of local routines, 
I/O routines cannot be designated as locals. 

Conversion routines (e.g., HOLL, EBPA, PUT) 
cannot be designated as locals. 

Interrupt servicing subroutines cannot be desig- 
nated as locals. 

In- skeleton subroutines cannot be used as locals. 



Other Considerations 

One other restriction in specifying subroutines as 
locals is that if a subroutine has more than one entry, 
i.e., EDBR, EDBRX, EBTV, and EDIVX, and more 
than one entry point is called, then all entry points 
must be indicated on the *LOCAL control card. 

The user should also beware of hidden locals. If, 
for example, A, B, and C are subroutines, and A 
calls B., and B calls C, A and C should not be made 
locals because C would be hidden from the relocatable 
loader when A was prepared for loading, and on exe- 
cution, local C would destroy local A. To overcome 
this problem, A and B, or B and C, or A, B, and C 
could be named as locals. 

If the Local Subroutine Area includes a device I/O 
buffer area, no local should exit to a non -blocked 



(that is, non-local) subprogram until it has tested 
for a device routine not-busy status. 

EXAMPLE 16. In certain application situations, por- 
tions of a problem program may not lend themselves 
to segmentation into individual core loads. In order 
to overcome this difficulty, by being able to contain 
such a program in the available machine core size, 
the local concept is immensely useful. The imple- 
mentation of the load-on-call facility means that 
subroutines within the main body of a program can 
be called into core on demand. 

The following example has been devised to illus- 
trate this type of situation. It should not be construed 
as a model. 

Assume a 32K system with a 16K skeleton. If all 
of FORTRAN I/O were used for all devices called by 
the nonprocess program, NCATE, core siise limita- 
tions require that FORTRAN I/O be localized (see 
Figure 46). Since all FORTRAN I/O taken together 



VCORE= /4000 


SKELETON 


DIMENSION 




MAINLINE 




ARITH. &FUNC. S/RS 


/6164 
/6890 

/7ccr 


IOFIX,IOU,SAVE,MAGT 


LOCALS 


COMMON 



MAINLINE 

> & 

SUBROUTINES 



UFIO,MFIO, 
S. MDFIO, & 
MDFND 



Figure 46. Illustrating the Implementation of LOCALs 
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would comprise approximately 3500 words, by local- in the mainline, can be referenced by either MFIO 

izing them, the largest local block will be only ap- or UFIO. 

proximately 1600 words, and thus small enough to be Program Listing No. 4 also indicates the order of 

accommodated within the 1830 words available. control cards acceptable to the Core Load Builder. 

Note that subroutines common to FORTRAN I/O For nonprocess programs, these must all be placed 

(that is, called by FORTRAN I/O and not by the between the *STORECI (or // XEQ) control card and 

mainline) are automatically included in the mainline a *CCEND control card. Only the *RCORD control 

such that they may be shared. MAGT, being included is not allowed. 
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PROGRAM LISTING NO. 4: EXAMPLE 16 



// JOB 

// DUP 

*STOREDATAD WSO FXO FILE2 

DUP FUNCTION COMPLETED 



// JOB 

// FOR NCATE 

♦ LIST ALL 

♦NONPROCESS PROGRAM 

♦IOCS (CARD, 1443 PRINTER , DI SK, TAPE ) 

♦ONE WORD INTEGERS 

C 

C NONPROCESS MAINLINE—FORTRAN I/O IS LOCALIZED 

C —I/O SEGMENTATION IS ALWAYS DESIRABLE 

C 

C 

C LARGE DIMENSION IMPLIES SIMULATION OF EXTRA CODE 

C FOUND IN LARGE PROGRAM 

C 

DIMENSION SPACE(2000),ROOM(500> 

COMMON ARR AY ( 2000 ) , POI NT ( 997 ) , A , B , C 
C 

DEFINE FILE 1 ( 320 , 1 , U, I FI L 1 ) 

DEFINE FILE 2( 320 , 1 , U, I FI L2 ) 
C 

CALL INOUT(l) 
C 

C DO HIGHLY SOPHISTICATED PROGRAMMING 
C 

SPACE! 1) = A*B/C+A#*B*ATAN(C)-B**2 

ROOM(l) = ABS(A)*ALOG(B>*EXP(C*A)/(A*COS(C)*TAMH(B>) 
C 

C USER-WRITTEN NON I/O DUMMY PROCESSING ROUTINES 
C WHICH MIGHT BE LOCALIZED 
C 

C CALL COMPT 
C CALL SURCH 
C CALL SORT 
C CALL CAMPH 
C 

CALL IN0UT(2) 
C 

CALL EXIT 

END 
VARIABLE ALLOCATIONS 
ARRAY(RC)=FFFE-F060 POI NT (RC) =F05E-E896 A(RC)=E894 B(RC)=E892 C<RC)=E890 SPACE(R )=OFAA-OOOC 

ROOM(R ) = 1392-0FAC IFILKI ) = 139E IFIL2II r = 139F 

FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
INOUT FATAN FABS FALOG FEXP FCOS FTANH FAXB FADD FMPY FOIV FLO FSTO FSTOX FSBR 
FDVR FAXI 

INTEGER CONSTANTS 

1=13A2 2=13A3 

CORE REQUIREMENTS FOR NCATE 
COMMON 6000 INSKEL COMMON VARIABLES 5026 PROGRAM 88 

END OF COMPILATION 

NCATE 

DUP FUNCTION COMPLETED 

// FOR 

♦NONPROCESS PROGRAM 

*ONE WORD INTEGERS 

*LIST ALL 

C 

C DO NOTHING I/O STATEMENTS FOR ILLUSTRATIVE PURPOSES ONLY 

C 

SUBROUTINE INOUT(I) 

COMMON ARRAY ( 2000 ) , POI NT ( 997 ) , A , B, C 
C 

GO TO (1,2), I 
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1 READ(2,3) A,B,C 
FIND<2" 1) 
RETURN 



C 



2 READI2' 1) ARRAY 
WRITE(l'l) ARRAY 
REA0I5) A,8,C 
WRITE (6) A,B,C 
END FILE 6 
BACKSPACE 5 
REWIND 6 
RETURN 



3 F0RMATOF10.3) 
END 
VARIABLE ALLOCATIONS 
ARRAY (RC)=FFFE-F060 POINT (RC ) =F05F-E896 



A(RC)=F894 



B(RC)=F892 



C(RC)=F890 



STATEMENT ALLOCATIONS 
3 =0004 1 =0012 



= 0021 



FEATURES SUPPORTED 
NONPROCESS 
ONF WORD INTEGERS 



CALLED SUBPROGRAMS 
COMGO URED UWRT 
MDAF MDFND 



UCOMP MRFD 



MCOMP MI OF 



BCKSP 



EOF 



SUB IN UIOF 



MOCOM 



INTEGER. CONSTANTS 

2=0000 1=0001 



5=0002 



6=0003 



CORE REQUIREMENTS FOR INOUT 
COMMON 6000 INSKEL COMMON 



VARIABLES 



PROGRAM 
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END OF COMPILATION 



INOUT 

DUP FUNCTION COMPLETED 

*STOR£CIL MCATE NCATF 

*FILES<2,FILE2,0) 

*L0CAL(MDFI(1,MDAF,MDAIfMDC0M t MnF f M0I,MDFX,MDIXtMDRFD.MDWRTtMDFMD) 

*LOCAL(MFIO,MRED,MWRT,MCOMP f MIOAF,MIOAI,MIOF,MIOI.MIOFX.MIOIX> 

*L0CAL(UFI0,UREDtUWRT,UI0I,UI0F,UI0AI,UIOAF,l)I0FX,UIOIX,UC0MP) 

*CCEND 



CLB, BUILD NCATE 



CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


4002 


oooc 


*IBT 


TABLE 


400E 


0023 


*FIO 


TABLE 


4031 


0010 


*ETV 


TABLE 


4041 


OOOC 


*VTV 


TABLE 


404D 


OOAE 


*PNT 


TABLE 


40FC 


0004 


*LPT 


TARLF 


4100 


OOBA 


*DFT 


TABLE 


41BA 


OOOC 


MAIN 


NCATE 


555E 




PNT 


NCATE 


40FE 




CALL 


FLIP 


55B4 




LOCL 


MDFIO 


4100 


404D 


LOCL 


MDAF 


4106 


4050 


LOCL 


MDAI 


410C 


4053 


LOCL 


MDCOM 


4112 


4056 


LOCL 


MDF 


4118 


4059 


LOCL 


MDI 


411E 


405C 


LOCL 


MDFX 


4124 


405F 


LOCL 


MDIX 


412A 


4062 


LOCL 


MDREO 


4130 


4065 


LOCL 


MDWRT 


4136 


4068 


LOCL 


MDFND 


413C 


406B 


LOCL 


MFIO 


4142 


406E 


LOCL 


MRED 


4148 


4071 


LOCL 


MWRT 


414E 


4074 


LOCL 


MCOMP 


4154 


4077 


LOCL 


MIOAF 


415A 


407 A 


LOCL 


MIOAI 


4160 


407D 


LOCL 


MIOF 


4166 


4080 


LOCL 


MIOI 


416C 


4083 


LOCL 


MIOFX 


4172 


4086 


LOCL 


MIOIX 


4178 


4089 


LOCL 


UFIO 


417E 


408C 
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LOCL 


URF.D 


4184 


40 8 F 


LOCL 


UWPT 


418A 


4092 


LOCL 


u:mi 


4190 


4095 


LOCL 


UIOF 


4196 


4098 


LOCL 


UIOAI 


419C 


409B 


LOCL 


UIOAF 


41A2 


409 F 


LOCL 


UIOFX 


41AB 


40A1 


LOCL 


U 1 1 X 


41AF 


40 A 4 


LOCL 


UCOMP 


41B4 


40 A7 


CALL 


I MOOT 


5615 




LIBF 


FLO 


56BC 


40AA 


LIBF 


FMPY 


56D5 


40 An 


LIBF 


FDIV 


5717 


40 BO 


LIBF 


FSTO 


56A2 


40B3 


CALL 


FAXB 


5781 




CALL 


FAT AN 


57C2 




LIBF 


FADD 


588C 


40B6 


LIBF 


FAXI 


590F 


40 B9 


LIBF 


FSBR 


586C 


40BC 


LIBF 


FSTOX 


5658 


40BF 


CALL 


FABS 


594E 




CALL 


FALOG 


596A 




CALL 


FEXP 


59FE 




CALL 


FCOS 


5A7A 




CALL 


FTANH 


5B0E 




LIBF 


FDVR 


575D 


40C2 


LIBF 


AORCK 


5B62 


40C5 


CALL 


BT2BT 


5BC6 




CALL 


SAVF 


5BE2 




CALL 


IOFIX 


5C46 




LIBF 


IOU 


5C76 


40 C 8 


CALL 


BT1BT 


5CCE 




LIBF 


FLOAT 


5D32 


40CB 


LIBF 


IF IX 


5D4E 


40CE 


LIBF 


MAGT 


507A 


4001 


LIBF 


SUBIN 


5F98 


4004 


LIBF 


CCJMGO 


5FD2 


4007 


LIBF 


EOF 


605D 


400A 


LIBF 


BCKSP 


6064 


4000 


LIBF 


REWMD 


6024 


40E0 


LIBF 


FARC 


60B0 


40E3 


CALL 


FTNTR 


60E4 




CALL 


FTRTN 


60FE 




CALL 


FLN 


597A 




LIBF 


FNIPYX 


56D0 


40E6 


CALL 


FXPM 


5A0E 




LIBF 


XMDS 


610E 


40E9 


LIBF 


FAPDX 


5886 


40EC 


LIBF 


FSUBX 


587B 


40EF 


LIBF 


FDIVX 


5712 


40F2 


LIBF 


FLOX 


56B7 


40F5 


LIBF 


NORM 


6136 


40F8 


CORF 




6164 


072C 


COMM 




6890 


1770 



CLB, NCATE LO XO 
DUP FUNCTION COMPLETED 



106 



General Utility Functions 

EXAMPLE 17. PACKING THE USER (RELOCATABLE 
PROGRAM) AREA. It has been mentioned that during 
a delete operation, the LET table is searched for the 
name of the program to be deleted and that entry re- 
placed by a 9DUMY. The space (that is, area) pre- 
viously occupied by the deleted program remains 
unused until an *DEFINE PAKDK operation has been 
performed: it then becomes available for the storage 
of other programs (through the *STORE function). 
The user is therefore advised to repack relocatable 
programs for optimum disk utilization at convenient 
intervals. 

When repacking is performed, the user should 
ensure that a current record of disk storage exists 
as a safeguard against any errors which might occur 
while packing is in progress. The amount of time 
involved in this operation is directly proportional to 
the quantity of data moved. The sequence of control 
cards for a typical packing operation is given in Fig- 
ure 47. Note that the *DEFINE PAKDK function 
serves only to pack relocatable programs on disk. 

Figure 48 illustrates how various portions of the 
TSX subroutine library can be deleted or removed 
from the disk if they are not needed for a given user 
system. The Relocatable Subroutine Area is then 
packed to conserve disk space. 

EXAMPLE 18. HOW TO REPRODUCE CARDS. 
When the input to the *STOREDATA function is in 
card form, this function requires the card deck to be 
sequenced, modulo 1000. Any form of input may 
exist from columns 1-72, as no conversion takes 
place. 



This may be used to reproduce source decks 
prior to assembly (e.g. , the TASK source deck). 

EXAMPLE 19. DUMPING A LET/FLET TABLE. 
The *DUMPLET function is used to dump to the List 
Printer the contents of the LET or FLET or both 
tables for one or all drives specified during a partic- 
ular job. The control card sequence for a LET/ 
FLET dump is shown, in Figure 50. 

The format of a LET/FLET entry is summarized 
in Figures 51 and 52. A detailed explanation of the 
contents of both tables is given in the IBM 1800- 
Time-Sharing Executive System, Operating Proce- 
dures, Form C26-3754. 

EXAMPLE 20. HOW TO CALL FOR A PROCESS 
CORE LOAD EXTERNALLY. Once an on-line TSX 
system has been built, the question remains of in- 
itializing or starting system operation. This is only 
possible through a cold start procedure — Figure 
53 illustrates a typical sequence of control cards for 
a three- drive system. 

The cold start program is supplied with the IBM 
System and is normally resident on disk. It is read 
into high-addressed core storage by a two-card 
bootstrap (COLD START LOADER CARDS 1 and 2), 
and control passed to its first executable instruction. 
The Skeleton is then loaded to core storage, and 
certain mask registers in the Fixed Area are set to 
/FFFF thus forcing the Skeleton I/O routines to op- 
erate in a masked mode. Note that it is the user's 
responsibility to unmask his system, according to 
his configuration determined at system generation 
time, through his initial (that is, first) process core 
load. 

The third control card in the sequence, the COLD 
START name card, specifies 



SAMPLE CODING FORM 


1 — 10 


11-20 


21-30 


31-40 


41-50 


l|2|3N5|6|7|8|9|0 


l|2|3|4|5|6|7|e|9|0 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 


IJ\ * IffAC*. IftSiCff. I4«i£i4i bkV A/ftA! ZWI/.V 


m 1\ . , i , 




/i/i JTtflfl , , , 1 , , , XI , , , , 


i > i i 1 i i i > 




. i I . . . . 




/i/l iW\R , , , 1 i , . , 1 i i i i 






, , 1 , , . . 


i i i i 1 i i i i ! 


IftQtt/WS, JPAKO& il . . . . 




, 


..!.... 




*&f/MAt,£T, , It ... 1 ... . 


i i i i 1 i i i > 


1 


, , 1 , , , , 


i i i i 1 i i i i 1 


/i/i ifiMA , , . 1 , i , , 1 i . , i 






. ■ 1 , , . i 


i i i i 1 i i i i 1 


1 1 i i 1 i i i i 1 i i i i 1 i i i i 


, , ,,l . , ., 1. 


,1m, 


i i i i 1 i i i i 1 



1. 



3. 



4. 



Whether or not storage protection is required 
(1 or in column 14). 

Whether or not a request is made for the man- 
ual entry of the time of day (1 or in Column 16) 
The logical assignments of physical disk drives 
on the system . 
The name of the initial process core load. 



Figure 47. Repacking User Area on Disk Drive 1 



If the storage protection option is elected, the 
Skeleton I/O, the System Director, the Executive 
Branch Table, and certain words in the Fixed Area 
are protected against any user violation. When the 
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•/ JOB 

// * 

// « 

// * 

•/ * 

// * 

// * 

// * 

// * 

// * 

// OUP 

•OELET 

// ♦ 

// # 

// DUP 

•DELET 

•DELET 

•DELET 

// # 

// » 

// DUP 

•DELET 

•DELET 

♦DELET 

♦DELET 

/• • 

// » 

// DUP 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

♦DELET 

•DELET 

♦DELET 

•DELET 

// • 

// • 

/'/ • 

/'/ DUP 

♦DELET 

♦DELET 

•DELET 

•DELET 

•DELET 

♦DELET 

♦DELET 

♦DELET 

•OELET 

♦DELET 

•DELET 

•DELET 

•DELET 

•DELET 

•DELET 

•DELET 

•DELET 

•DELET 

•DELET 

/• • 

// • 

// DUP 

•DELET 

•OELET 

•OELET 

•DELET 

•DELET 

•DELET 

♦DELET 

•DELET 

♦DELET 

•DELET 

•DELET 

•DELET 

•DELET 

♦DELET 

•DELET 

•DELET 

•OELET 

•DELET 

•DELET 

•DELET 

// JOB 



THE FOLLOWING SET OF TSX MONITOR CONTROL CARDS IS USED 
TO DELETE VARIOUS PARTS OF THE TSX SUBROUTINE LIBRARY IF 
ARE NOT NEEDED FOR A GIVEN USER-CONFIGURATED SYSTEM 



THE FIRST DELET ELIMINATES CARDN IF THE USER HAS ASSEMBLED 
TASK WITH CARDN INCLUDED — NOTE THAT FOR OFF-LINE SYSTEMS CARDN 
SHOULD BE INCLUDED IN TASK SINCE THIS SAVES EXECUTION TIME 
CORE UE. CDINS EQUATED TO } 



CARDN 
IF THE USER DOES NOT HAVE 
FOLLOWING DELETS APPLY 



MAGNETIC TAPE ON HIS SYSTEM THE 



MAGT 

REWND 

UFIO 
IF THE USER DOES NOT HAVE PAPER TAPE ON HIS SYSTEM 
THE FOLLOWING DELETS APPLY 



PAPTN 

PAPEB 

PAPHL 

PAPPR 
IF THE USER DOES NOT HAVE 
FOLLOWING DELETS APPLY 



A PLOTTER ON HIS SYSTEM THE 



FCHAR 

SCALF 

FGR1D 

FPLOT 

ECHAR 

SCALE 

EGRIO 

EPLOT 

POINT 

FCHRX 

FRULE 

ECHRX 

ERULE 

XYPLT 

PLOT I 

PLOTX 
IF THE USER IS BUILDING AN OFF-LINE SYSTEM THE FOLLOWING 
DELETS APPLY — NOTE. DO NOT ASSEMBLE AND STORE THE SYSTEM 
DIRECTOR 

CLEAR 

CLOCK 

COUNT 

DP ART 

ENDTS 

LEVEL 

MASK 

OPMON 

QIFON 

QUEUE 

RESMK 

SAVMK 

SETCL 

TIMER 

UNMK 

UNQ 

VIAQ 

CONHX 

TRPRT 
IF THE USER HAS NO PROCESS I/O ON HIS SYSTEM THE FOLLOWING 
DELETS APPLY 

AIPTN 

A I SON 

AIRN 

AN I NT 

OINP 

DIEXT 

DICMP 

DAOP 

I OPE 

XSAVE 

GAGED 

AIP 

AIS 

AIR 

CS 

CSC 

CSX 

DAC 

QZERQ 

QZOIO 



THE SUBROUTINE AREA WILL NOW BE PACKED TO CONSERVE DISK SPACE 
PAKDK 



/*' OUP 

•DEFINE 

/V JOB 

// END OF EXTRA SUBROUTINE DELETS 



Figure 48. Repacking the Relocatable Subroutine Area Following a Removal of Various Portions of the TSX Subroutine Library 



108 



SAMPLE CODING FORM 


1 — to 


1 1-20 


21-30 


31-40 


41-50 




l|2|3|4|5|6|7|8|9|0 


l|2(3|4|5|6|7|e|9|0 


1 12|3|4|5|6|7|8|9|0 


l]2j3|4|5|6|7|8|9|0 1 ) 2 1 3J4 }5 16 1 7| e]9]o 


/i/i * \mom ,7la iXftttaazwclfl caAdsi . , i . . 


i i 1 > I i i 1 i 


■ ■ 1, ■ 




/i/i Kioto , , i 


i i i i 1 I i i i 1 i i i i 1 i i t i 1 i i 








/i/i lO/fe , , , 




i i 1 > i i | 1 i 






HS7K«ls:flAr:A 


, jeA 1 iWs,<a ,,,,:,, rifli. 


, , 1003,2,01 , 






Ml| 1 , , ,*! 










1 1 1 1 1 , I 1*1 


,(,cArtP, . smxee, i jwjwt,), 


nl 






1 1 1 1 1 , , ,'l 




, 1 , . : ' 






Ifflt/MPPATA, 


i <W5i0 /W , 1 , , , , 1 , , , , 1 , , 


1 ld40i, , 1 1 






Mnl,,,',' 




, ■ ! . , . 1 , 






1 I i i 1 , , ,», 


/,&i.,/toX . CMXAS') ,,,,!,, 


,,!,,,,!, 






1 1 l i 1 ■• i*i 










*MMT*i-ET> , 




. I 






rVi ifitffo , , . 










t I 1 1 1 1 1 1 1 


i i i i 1 .i i i i ! i i i i 1 i i i i 1 i i 


i i 1 i i i i 1 i 


, i 1 . , 





Y Y Y Y 

^ -<y ^ 



STARTING DISK BLOCK ADDRESS 
OF .TEMP MUST BE A CYLINDER 
BOUNDARY 



THE NEXT DISK BLOCK ADDRESS TO BE USED FOR 
'STORING RELOCATABLE PROGRAMS 



r 



E..XXXX. ,YYYY 



WILL BE THE SAME AS .TEMP'S IF NOTHING IS 
IN .TEMP 



STARTING DISK BLOCK ADDRESS NPWS IS 
'ALWAYS AT LEAST A SECTOR BOUNDARY 



DISK BLOCK ADDRESS OF (END OF NPWS+1) 
'IS ALWAYS AT LEAST A SECTOR BOUNDARY 



Figure 49. Reproduction of Cards 



NAME XXXX . Y Y Y Y 



SAMPLE CODING FORM 


1 — 10 


11-20 


21-30 


31-40 


41-50 


l|2|3|4l5|6|7|8|9|0 


l|2|3J4|5|6|7]e|9|0 


||2|3|4|S|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 


A/i dfc \DPMP, 


Lmr/^csETs y&\ ,Q/d/c, jxk/M£& a, J. A#to i2 . 1 > . . . 1 


A/i «X0\G , , i 


, , , ,X M ! iXI , , V , 1 , , , , 1 , , , 1 1 , ! , , 


1 1 1 1 1 1 1 1 1 


/,/! ifltffc , . I 


,,,, l ,, i . i .... i .... i .... I ... i 


1 i 1 1 1 1 1 i 1 ! 


*\DumAl,e;t, , 


. . . . 1 ... ^ ........ i 


i I 1 1 1 I 1 1 1 


/i/i &/\a , , , 


. ... 1 .... 1 .... 1 1 , . . ■ 


1 1 1 1 1 1 ( ( ( 


1 1 1 1 1 1 1 1 1 


, , , !,,,,!,,,, 1 , , 


'....!,,., 


Figure 50. Di 


imp LET/FLET 


of Disk Drive 


s 0, 1 and 2 






STARTING DISK BLOCK ADDRESS OF PROGRAM 
OR AREA SPECIFIED 



DISK BLOCK COUNT OF PROGRAM 



PROGRAM OR TABLE NAME 



Figure 51. LET Entries 

1 = COMBINATION C.L.1 
= INTERRUPT C.L. J 



,. , lx 



NAME. xxxx 

4 



rNMMC 

Program 
Name 



■DISK DRIVE CODE 0,1,2 



y y y y 




■SECTOR ADDRESS 



■STARTING SECTOR ADDRESS 
FOR THIS ENTRY 



WORD COUNT FOR/ENTRIES OR CORE LOADS 



■ SECTOR COUNT FOR (') ENTRIES,DATA FILES 
OR 9DUMY 




STARTING SECTOR ADDRESS OF 
CORE IMAGE AREA 



TOTAL NUMBER OF SECTORS USED FOR CORE 
"IMAGE PROGRAMS AND DATA FILES 



Figure 52. FLET Entries 
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SAMPLE CODING FORM 



21-30 



31-40 



41-50 



lM3Ms|6 |7|B|g|o|l |2|3Kl5f6|7fe|3j0Jl jgrBl^BtslTlelsMl |2W<4h|6hr|af9fo|il2T3p»^l6rTfe|g|o| I |z|3|^|s|6| 7JB|3|o| I |g|3Msfg|7|e^|o| I |g|3|^g|6|7le|9|o 



hl\ ft laefi/Miee sfame* too*, dH .-tiMK (Op^katj^oH ■ ■ ■ 1 



1. i. _Lj_i.J_i_i_L.J_LJ- I I I I I I I 



i/l rifi l CO,_,4 1371/4,^71 UM&EK fiAKJD, d, ^UPPUM £A mr ,TH, JBM, SNtTSM 



/i/i * bam larA^ Tl ^qaoici^, ,c/ tt,q ,2, &oppl\Z£J> ,wr.r^, jlam g.v&r,^ 



i i i i i i i i i i i i i 



<W-.,flSl7 ; 3T,^7-, ,1, |1, ,fl ^1 |2| fi7tA g,7, ftfcM tiS, <iO,*lg .OMfr ^ VK f^ft ffi& fifif-A &rfiW , 



J- 1 I I ! I I 



I I I I I I I I I 



Figure 53. Cold Start for an On-Line System 



clock option is selected, the user manually enters 
the time of day in decimal hours and minutes 
(switches 0-7 and 8-15 respectively): when CONSOLE 
START is depressed, this is converted into hexadeci- 
mal hours and thousands of hours (see also System 
De sign Considerations: System Director ) . 

The assignment of physical disk drive units in a 
multi-disk system is based on a logical scheme to 
give maximum flexibility, as shown in Figure 54. 

Note that the physical arrangement of the disk 
drive units (up to three) in a 2310 Disk Storage Unit 
is fixed in the sequence: disk drive 2, disk drive 0, 
and disk drive 1. Columns 18, 20, and 22 on the 
COLD START name card always designate a logical 
number sequence: 0, 1, and 2 in that order. These 
columns are used at cold start time to establish a 
relationship between a physical disk drive (either 2, 
0, or 1) and its equivalent logical reference. For 
example, a 1 punched in column 18 means that a pro- 
gram that references logical will refer to the 
physical drive (disk drive 1) which was assigned at 







ASSIGNMENT 

OF 

PHYSICAL 

DISK 

DRIVE UNITS 


COLD START NAME CARD 


1 


2 


COL. 18 

(LOGICAL 

NO. 0) 


COL. 20 

(LOGICAL 

NO. 1) 


COL. 22 

(LOGICAL 

NO. 2) 










1 

2 
2 
1 



1 


1 


2 
2 


2 
2 

1 


1 






1 




PHYSICAL DIS 
DRIVE UNIT 

ARRANGEMES 
IN 2310 DISK 

STORAGE UNI 


K 
T 
T 



Figure 54. Relationship of Physical Disk Drive Units to Logical Number 



cold start time to that logical number (0). In Fig- 
ure 53, physical disk drives 0, 1, and 2 have been 
assigned to logical 0, 1, and 2 respectively. One of 
the advantages of this flexibility in assigning physical 
disk drives in a multi-disk system is backup capabil- 
ity. 

EXAMPLE 21. HOW TO INITIATE A NONPROCESS 
MONITOR OPERATION. In an on-line system: 

• CALL SHARE from a mainline program only, or 

• CALL VIAQ (when the queue is empty) . This 
forces a CALL SHARE. 

CALL SHARE is deliberately used when time- 
sharing is desired at specific times and for specific 
durations. The amount of time is specified by the I 
parameter, and is variable depending upon the length 
of time the user wishes to be away from his process 
on the mainline level. This time is set in the pro- 
grammed timer run under Timer C. Time-sharing 
is terminated when the timer returns to zero or is, 
alternatively, set to zero by a CALL ENDTS state- 
ment (see also System Design Considerations: 
System Director ). 

A CALL VIAQ when the Queue Table is empty 
forces a CALL SHARE statement: the time used in 
the CALL SHARE is the value set by TISHA (see 
System Design Considerations: System Director ; 
also Use of Time-Sharing ). 

In an off-line system, Nonprocess Monitor oper- 
ation may be initiated by 

1. A COLD START TASK procedure, or 

2. Loading a TASK object deck to core with a 
four- card High Core TASK Loader. 

The COLD START TASK procedure is identical to 
the on-line COLD START PROCEDURE (see Example 
20), except that the TASK operating system is now 



no 



read into core storage (instead of the System Skele- 
ton) . A typical sequence of control cards is shown 
below (Figure 55). 

An alternative method of starting an off-line sys- 
tem is to load a TASK object deck (previously assem- 
bled to user specification) to core-storage with a 
four-card bootstrap loader (High Core TASK Loader). 
The procedure is summarized below (see also IBM 
1800 Time-Sharing Executive System, Operating 
Procedures, Form C26-3754). 

• Clear core. The 16 data switches may be set off, 
or to some predetermined value. Depress 
CLEAR CORE and START buttons simultaneously. 

• Depress STOP button 

• Reset registers to zero. Depress RESET button. 

• Ready Card Reader. Depress PROGRAM LOAD 
on reader. 



• Set Sense Switch 7 up. 
INTERRUPT. 



Depress CONSOLE 



• Depress START button (on response to sense 
switches). 

EXAMPLE 22. HOW TO TERMINATE A NONPROC- 
ESS MONITOR OPERATION (OFF-LINE SYSTEM 
UNDER TASK CONTROL). Two methods are pos- 
sible: 



2. Whenever the Card Reader is empty, the Non- 
process Supervisor will indicate this situation 
by printing the following message: 

N04 READER READY 

Place next stacked job deck on hopper. 
Ready reader. Depress START. 

EXAMPLE 23. PREPARING A GUARD (DUMMY) 
INTERRUPT CORE LOAD. If an interrupt occurs on 
a level designated as "out-of-core" and there is no 
interrupt or combination core load associated with it, 
the interrupt will be recorded automatically. To pre- 
vent this, it is good practice to provide a guard or 
dummy interrupt core load to service all interrupts or 
all assigned out-of-core interrupt levels until each 
interrupt has its final interrupt core load built and 
stored on disk. The substitute core load should give 
some indication (such as a message) that the interrupt 
has occurred. 

In the example (Figure 56), levels 8, 9, 10, and 
11 were defined as "out-of-core" interrupt levels by 
the System Director equate cards ICLL1 and ICLL2. 
The relocatable main program is identified by 
GUARD located in the temporary portion of LET. 
Its entry address is 5. The interrupt core load 
is also identified by GUARD but is in FLET. The 
DICLE statement specifies that GUARD is entered 
in the ICL Table for each bit position on each level 
assigned. When the named program is later de- 
leted and replaced by another program, all of the 
ICLT entries will be replaced. 



1. Set Sense Switch 7 up 

Depress CONSOLE INTERRUPT 

This immediately aborts the current job being proc- 
essed, and proceeds to next stacked job. 



EXAMPLE 24. USE OF THE CONSOLE INTER- 
RUPT. The Console Interrupt is used by the system 
and may also be used by the user. 

The system uses the Console Interrupt with sense 
switch 7 on either to abort a nonprocess job or to 



SAMPLE CODING FORM 



31-40 



41-50 



l|2|3|4J5|6|7[e[9|0Jl |2|3|4|5|6|7-|e|9|0|l|2|3|4|5|6|7'|s|9|0|l [ 2 l3l4|s[6|7-[e|9 |o| I |2J3[4|5 [s| 7]s|9|o| I |2|3|4|s|e| 7-|sJ9|o| I |2|3H5J6| 7JeJ3|ol 1 1 2lsK|s|el T-Jsjajo 



/i/i rift teKGMKG ,OAr\-*LJst/& StfS\T£M trtax, OFtoMArjtoM 



I I I I I I I I I I I I 



/i/i .ft \caca tir*xr\ iiXM&e* fima d, iso/tottta mm JtaM, .ayferic^ 



/i/i rift ICOAQ IS7-,A*,7l AOADKX iCAftfl ,?, &/JWL\LU>l H/iT,™ Jfati >Srt&r,£M 



*cu.,aifc ,t.a$\k , j, Hi ,0 ,ii ,2, .art/w,/idg aysHtam ,cbz,o, shAxr, Mama 



i QM i q 



I l i i 
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Figure 55. Cold Start for an Off-Line System 
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Figure 56. Preparing a GUARD or Dummy Interrupt Core Load 



commence Nonprocess Monitor action. This oper- 
ation is required after a // JOB, // END OF ALL 
JOBS combination. 

A block diagram of the generalized logic flow is 
given in Figure 57. 

The user may have an interrupt program executed 
on a chosen level by depressing the Console Inter- 
rupt button with sense switch 7 off. The level is 
assigned by the user on the equate card CONTA at 
TASK assembly time. 

The servicing routine or core load is written by 
the user and handled in the same way as a program- 
med interrupt servicing routine, with appropriate 
LLBB designations. It is through the programmed 
interrupt servicing routine that the Console sense/ 
data switches are interrogated and which, in turn, 
direct this routine to the course of action desired. 

One of the functions the servicing routine or core 
load must perform is to queue up a mainline core 



load which will notify the Customer Engineer when 
he can depress the C. E. Interrupt button for the re- 
moval or addition of I/O devices from the system; 
and also to print out error counters where: hardware 
malfunctions have been recorded. 



EXAMPLE 25. PREPARING A MAINLINE CORE 
LOAD TO PERMIT PROLONGED EXECUTION OF 
THE NONPROCESS MONITOR FOR THE DEBUG- 
GING OF PROCESS PROGRAMS. The example il- 
lustrates the use of the CALL SHARE statement 
which will continue to provide time for Nonprocess 
Monitor operation when the increment I for time- 
sharing has expired and the mainline core load is 
reentered. 

This mainline core load will be specified in the 
COLD START procedure when only nonprocess work 
is to be accomplished. 
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Figure 57. Illustrating Logic of Console Interrupt 
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Figure 58. Illustrating Perpetual Time-Shared Nonprocess Monitor Operation 



114 



SYSTEM DESIGN CONSIDERATIONS 



In industrial control systems, individual user in- 
stallation requirements may vary from installation 
to installation either in the hardware itself or in 
dissimilarities inherent in the application. These 
differences may take the form of: 

• Different processes 

• Special process I/O hardware 



System Generation 

As noted above, System Generation is the process 
of preparing a specially-tailored operating system 
to match the machine configuration and operating 
system options selected by the user. In general, 
two types of systems may be generated: 

1. An on-line system, 

2. An off-line system. 



• Different input-output configurations 

• Different core storage sizes 

• Response time 

• Throughput 

• Priority considerations 

This means that each installation must be defined 
or tailored to the specific system function require- 
ments and input-output-configuration of that instal- 
lation. The tailoring function is defined as system 
generation which provides the facilities for the 
creation and maintenance of a monitored system 
composed of IBM and user-written programs and 
subroutines. The end product of system genera- 
tion is a disk-resident operating system which is 
custom built to provide an efficient Executive Sys- 
tem for a specific machine environment. 

In the IBM 1800 Time-Sharing Executive System, 
the builder or "tailor" is a stand-alone monitor 
program called the Temporary Assembled Skeleton 
(TASK) . TASK permits a system to be constructed 
on one or more disk cartridges from absolute and 
relocatable program decks which contain the exe- 
cutable phases and the relocatable programs the 
installation elects to include in its system. Further- 
more, the installation may modify the IBM-supplied 
configuration, delete functions not required by the 
installation and add installation-created functions 
and programs. The modular design and availability 
of many features and attachable units make possible 
numerous IBM 1800 configurations tailored to indi- 
vidual application requirements. 



On-line System 

An on-line system is one that responds continuously 
to the demands of the real-time world. For ex- 
ample, in industrial process control systems, a 
number of rapidly changing variables must be moni- 
tored, analyzed, and controlled at all times to 
produce an optimum result. A TSX on-line system 
implies a real-time operating system in which user- 
written programs continuously monitor and control 
a process operation under the command of an execu- 
tive program (the System Director), The executive 
provides a means of supervising the use of input- 
output data and communications channels, evaluating 
and interpreting data, transmitting and storing in- 
formation and programs, detecting and correcting 
errors, and interlacing time-sharing functions. 
It also controls the system's response to various 
optional requests, giving priority to emergency 
demands and postponing low -priority requests that 
may require considerable time to perform. Emer- 
gency actions can be scheduled at frequent intervals. 
This immediate response is secured through the 
medium of a powerful and flexible priority interrupt 
system. 

In the on-line mode, the executive also permits 
the system to be time -shared (when free time is 
available) by the controlled process and unrelated 
nonprocess functions. This means that nonprocess 
programs may be assembled, compiled, simulated, 
and debugged without interfering with the on-line 
process. It is the rule rather than the exception 
that process control programs are subject to change, 
and it is a definite advantage to be able to implement 
changes at the installation without taking the system 
off-line. 
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Off-line System 



Summary of System Generation Procedures 



An off-line system is completely unrelated to the 
real-time world, its main purpose being the 
handling of sequential job operations under the 
control of a monitor system. A TSX off-line system, 
by definition, constitutes a stack-job nonprocess 
monitor system which functions under the direction 
of TASK. In this mode, nonprocess operations such 
as assemblies, compilations, disk utility operations, 
and execution of user-written programs may be 
performed. 

Since TASK core size is considerably less than 
System Skeleton core size, core storage require- 
ments are less demanding for the off-line system. 
Also, as the various disk save areas are not now 
required, disk space is conserved. For those 
users who do not plan to utilize time -sharing, a 
nonprocess monitor system working under TASK 
gives the ability to build coreloads for an on-line 
system. It is from a non-process monitor system 
that an on-line system is ultimately constructed. 



The process of generating an on-line or off-line 
TSX system can be accomplished in two stsiges, as 
illustrated in Figure 59. 

In stage 1, the "starter" system (SYSGEN TASK) 
initiates the system generation process and directs 
the disk write address function, loading of the IBM 
Nonprocess System, TASK and System Director 
assembly, and definition of the disk system con- 
figuration. This set of procedures is common to 
both types of systems. 

In stage 2, the user exercises the option, de- 
pending on his application requirements, of build- 
ing an on-line or off-line system cartridge , 

This method of generating a completely new 
executive system makes use of standard system 
components such as TASK, the System Loader, the 
IBM Nonprocess System, the System Director, etc. 
Some of the important concepts and considerations 
involved in using these components will now be 
covered in some detail. 



STAGE 1 

1 . LOAD SYSGEN TASK AND DISK-WRITE SECTOR ADDRESS PROGRAM 
TO CORE 

2. WRITE SECTOR ADDRESSES 

3. LOAD IBM NONPROCESS SYSTEM TO DISK 

4. ASSEMBLE USER-CONFIGURATED TASK AND PUNCH TASK BINARY 
OBJECT DECK 

5. ASSEMBLE USER-CONFIGURATED SYSTEM DIRECTOR AND LOAD 
TO DISK 

6. DEFINE DISK CONFIGURATION 



m^^ m^^^ STAGE 2 V/S/////////////^///////////////A 



ON-LINE SYSTEM 



OFF-LINE SYSTEM 



7. ASSEMBLE/COMPILE SKELETON ROUTINES AND STORE 
TO DISK 

8. BUILD SYSTEM SKELETON 

9. BUILD PROCESS CORE LOADS 

10. COLD START INITIAL MAINLINE CORE LOAD 



7. LOAD TASK TO DISK IN SKELETON AREA 

8. COLD START TASK 



Figure 59. System Generation Overview 
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For details of step-by-step system generation 
operational procedures, the user is referred to the 
System Reference Library, IBM 1800 Time -Sharing 
Executive System, Operational Procedures, Form 
C26-3754. 



TEMPORARY ASSEMBLED SKELETON (TASK) 



TASK EQUATE CARDS 

Before TASK can be used to tailor a TSX system, 
like the System Director, TASK itself has to be 
assembled from a source deck. To do this, two 
groups (Groups 1 and 2) of equate cards must be 
physically placed in the TASK source deck to 
define the particular system. The relationship 
of the equate cards to the source deck is illustrated 
in Figure 60. 

The size of the assembled TASK is directly pro- 
portional to the number of TASK functions the user 
elects to include in his system. For example, if 




L 



( *PRINT SYMBOL T ABLE 
f *PUNCH 



LIST 



f 'OVERFLOW SECTORS 32 
(// ASM TASK 



//JOB 



he decides to include the complete TASK utility 
package which will assist him to debug his pro- 
grams prior to a skeleton build, he equates TRORG 
to 1. If he decides to include CARDN in the Skele- 
ton I/O, he equates CDINS to 1. If he decides to 
make use of the 1053/1816 backup capability, he 
equates the BD1-BD8 cards accordingly to identify 
the backup printer(s) assigned. 

Like the System Director, TASK can be assem- 
bled with extreme flexibility so that no core is 
wasted by selecting any of the numerous options 
available. Furthermore, portions of the package 
can be deleted. The user thus elects a configura- 
tion that best matches the functions required. This 
is illustrated by the example given in Figure 61 



♦IBM 1800 
CORSZ EQU 
COMSZ EQU 
DORG1 EQU 
DORG2 EQU 
PRILO EQU 
PRIL1 EQU 
PRIL2 EQU 
TORG EQU 
TORG1 EQU 
TORG2 EQU 
T0RG3 EQU 
TORG4 EQU 
T0RG5 EQU 
T0RG6 EQU 
T0RG7 EQU 
T0RG8 EQU 
T0RG9 EQU 
TORGN EQU 



BZ1 
BZ2 
BZ3 
BZ4 
BZ5 
BZ6 
BZ7 
BZB 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



Figure 60. TASK Source Deck and TASK Equate Cards 



NOCYL EQU 
NUMBE EQU 
NOBUF EQU 
TYPL1 EQU 
TYPL2 EQU 
INTKY EQU 
PORG EQU 
LVPR1 EQU 
LORG1 EQU 
SORG1 EQU 
SLORG EQU 
ECPT1 EQU 
ECPT2 EQU 
ECPT3 EQU 
CRDNO EQU 
CDINS EQU 
ORLP1 EQU 
ORLP2 EQU 
PTSKP EQU 
NULEV EQU 
MKLEV EQU 
CONTA EQU 
PRICS EQU 
TRORG EQU 
TAOl EQU 
TA02 EQU 
TA03 EQU 
ONLIN EQU 
BDT1 EQU 
BDT2 EQU 
BDT3 EQU 
BDT4 EQU 
BDT5 EQU 
BOT6 EQU 

Figure 61. 



TSX SAMPLE SYSTEM TASK EQUATE CARDS 
32 OBJECT SIZE IS 32K 

01 000 INSKEL COMMON SIZE IS 1 000 WORDS 

1 NOT A ONE-DRIVE SYSTEM 

THIS IS A TWO-DRIVE SYSTEM 

°1 INTERRUPT LEVEL OF DRIVE ZERO IS 1 

02 INTERRUPT LEVEL OF DRIVE ONE IS 02 

00 THERE IS NO DRIVE TWO 

1 SYSTEM HAS 1816 KEYBOARD 

1 MORE THAN ONE 1053/1816 GROUP 1 

1 MORE THAN TWO 1 053/ 1 8 1 6 GROUP 2 

SYSTEM HAS THREE 1053/1816 GROuP 1 

1 ONE 1816 KEYBOARD GROUP 1 

NO 1816/1053 GROUP 2 

1 OTHER THAN ONE 1053/1816 GROUP 2 
1 OTHER THAN TWO 1053/1816 GROUP 2 

1 OTHER THAN THREE 1053/1816 GROUP 2 

NO 1816 KEYBOARD GROUP 2 

SYSTEM HAS 1816/1053 PRINTERS 
MESS UNIT SIZE FOR 1053-1 GROUP 1 
MESS UNIT SIZE FOR 1053-2 GROUP 1 
MESS UNIT SIZE FOR 1053-3 GROUP 1 
MESS UNIT SIZE FOR 1053-4 GROUP 1 
MESS UNIT SIZE FOR 1053-1 GROUP 2 
MESS UNIT SIZE FOR 1053-2 GROUP 2 
MESS UNIT SIZE FOR 1053-3 GROUP 2 
MESS UNIT SIZE FOR 1053-4 GROuP 2 
20 CYLINDERS FOR MESS BUFF 
16 NONPROCESS MESS BUFF SECTORS 
DISK MESSAGE BUFFERING 
1053/1816 GROUP 1 INT LEVEL 04 
1053/1816 GROUP 2 INT LEVEL 00 
USER KYBD REQ RTN INT LEVEL 15 
1443 PRINTER ON SYSTEM 
1443 PRINTER INTERRUPT LEVEL 05 
LIST PRINTER IS 1443 
SYSTEM PRINTER IS 1443 
CARD INEFFECTIVE SEE LORG1/SORG1 
EAC PRINTER IS A 1053 
EAC COMBINATION EQUATE VALUE Is 7 
EAC PRINTER IS A 1053 GROUP 1 
ONE 1442 ON SYSTEM 
CARDN IS IN SKELETON I/O 
OVERLAP ON ANALOG I /P BASIC 
OVERLAP ON ANALOG I /P EXPANDER 
LOOPS UNTIL READY IN NONPROCESS MODE 
15 INT LEVELS IN SYSTEM 
15 OR MORE INT LEVELS 

LEVEL OF USER CONSOLE INT RTN IS 14 
STANDARD PRECISION IS USED 
TASK UTILITY PACKAGE INCLUDED 
FULL TRACE INCLUDED 
CHECK STOP TRACE INCLUDED 
DISK DUMP INCLUDED 
ALL TASK FUNCTIONS ARE USED 
DT2 1053-2 GROUP 1 BACK-UP UNIT 
DT3 1053-3 GROUP 1 BACK-UP UNIT 
DTI 1053-1 GROUP 1 BACK-UP UNIT 
DT I 1053-1 GROUP 1 BACK-UP UNIT 
DTI 1053-1 GROUP I BACK-UP UNIT 

DTI 1053-1 GROUP 1 BACK-UP UNIT 



1 

090 

090 

090 

090 

090 

090 

090 

090 

20 

16 

1 

04 



05 
1 



A Set of TASK Equate Cards for the TSX Sample System 
(see Programming Techniques) 
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which depicts a set of TASK equate cards chosen 
for the TSX Sample System described in Program - 
ming Techniques. The significance of each of the 
60 cards is clearly denoted. The majority of these 
cards are self-explanatory; a few, however, call 
for some explanation. These include the following: 

• NOBUF 

• BZ1-8 

• NOCYL 

• NUMBE 

• INTKY 

• CONTA 

• ECPT2 

• CDINS 

• PRICS 

• ONLIN 

• COMSZ 

NOBUF . This label indicates whether or not the 
buffering of messages to disk is required. It should 
be equated to zero if the user 

1. Has a 16K - 32K system where very few 
messages on all typewriters are printed 

2. System is restricted in skeleton core space. 

NOBUF should be equated to 1 if the user has a 
16K - 32K system, and has adequate core space 
(about 300 words) for the buffering feature in TYPEN. 

BZ1-8 (Message Unit Size). If the user has adequate 
core space, makes efficient use of disk space, or if 
he plans to print long messages, the message unit 
size should be large. If, however, core space is 
restricted, but there is sufficient disk space for a 
number of sectors for the buffering of messages, 
the message unit size should be small — that is, 
of the order of 20 - 40 words. 

In general, increasing the buffer size results in 
a more efficient use of disk space and a corresponding 
less effective utilization of core storage (see Buffer - 
ing of Messages to Disk). 



NOCYL. This should be basically equal to the 
largest possible message capacity in disk cylin- 
ders at any point in time. 

For example, assume that all messages for a 
specific system are each less than 40 words long, 
and that the message unit size for all 1053 printers 
is 40 words. Then, if in any 10 minute period, the 
user calls for 80 messages to be printed, NOCYL 
should be equated to 10. That is, an 80-sector 
buffer is reserved. Note that 8 words of core 
storage are reserved for every increment of NOCYL 
(see Buffering of Messages to Disk) . 

NUMBE. This specifies what percentage of disk 
message buffer can be in use by a nonprocess pro- 
gram in any given moment of time. It can never 
exceed NOCYL X 8. 

INTKY . This specifies the interrupt level on which 
the user will service the 1816 device as the result 
of a keyboard request interrupt. If the user plans 
to use an out-of-core interrupt servicing program 
for this purpose, INTKY must be equated to an 
interrupt level lower in priority than all other I/O 
interrupt levels. 

CONTA. The user must specify the level to be 
program-interrupted for the servicing of the Con- 
sole Interrupt. 

The interrupt servicing routine would then inter- 
rogate the sense/data switches to determine the 
course of action required by the interrupt. 

One of the uses of this routine is to queue up a 
mainline core load that will enable the Customer 
Engineer to utilize the C. E. Interrupt facility. 
(See INTKY; also Examples of Nonprocess Monitor 
Usage — Example 24.) 

ECPT2. If two 1053 Printers form part of the user's 
valid system, he should always define (at least) these 
two printers as EAC printers for backup purposes. 

CDINS. For off-line systems, this should always be 
equated to 1. Note that this saves about 300 words 
of variable core. For on-line systems, this should 
be zero unless the user plans to include in the skele- 
ton a subroutine which calls the 1442 card reader. 

PRICS . The user must anticipate what type of arith- 
metic precision is required in his process programs. 
He should remember that once this is defined, sub- 
routines used by process programs are assembled 
with this same precision. 
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ON LIN. If the user plans to operate (only) an off- 
line disk monitor system, this should be equated 
to zero. This gives the user 600 more words of 
variable core. 



COMSZ. This equate card specifies the size of 
INSKEL COMMON. In an off-line system, this 
card has no effect since INSKEL COMMON is 
only present in an on-line system. 



BUFFERING OF MESSAGES TO DISK 

Efficient I/O handling is the most important single 
factor in the effective utilization of processor time. 
Input-output devices, being slow compared to the 
internal speed of the processor, must be program- 
med to overlap their operation with mainline compu- 
tations whenever possible to 

1. Greatly increase efficiency of I/O operations 

2. Provide more throughput of data. 

Consider the following situation. The incore 
1053 Printer buffer (whose size is determined by 
the TASK equate cards BZ1-8) contained within the 
D.P. I/O subroutine TYPEN is full, and the printer 
is in the process of writing a message. If disk 
buffering were provided, the next message called 
would be temporarily stored on disk* and later re- 
turned to core when the current message is com- 
pleted. This means that the processor-controller 
is not locked up and waiting for the input-output 
operation to be completed, and is thus able to con- 
tinue with its processing. 

The significance of disk buffering is that queueing 
of output messages or information can now be easily 
accomplished without putting excessive loads on core 
size or disk access capabilities of the system. 

Without disk buffering, the system becomes 
printer -limited, and might deteriorate into a 15 
character per second system. 

We thus see that the buffering of messages to 
disk is important for two reasons: 

1. It maximizes processor time. That is, it 
allows computing to continue after a call to 
the printer is given. 

2. It frees the user from having to optimize his 
message requests, thus permitting more 
effective use of the device. 

The interrelationship between disk message buf- 
fering and total skeleton core requirements can be 
shown by the following example. 



Without buffering: Assume four 1053 Printers 

Minimum message unit size 
= 81 words 

Total core = 324 words 

With buffering: Assume four 1053 Printers 

Minimum message unit size 
= 20 words 

Add additional portion of 
TYPEN = 300 words 

Total core = 380 words 

It is seen, in this example, that the user obtains 
all the advantages of buffering at the small sacrifice 
of 56 words. 



Message Unit Size 



The user must define the message unit size for the 
1053 Printer(s) attached to his 1800 TSX System at 
TASK assembly time. The printers may belong to 
Group 1 or Group 2 on the condition that the maximum 
number of 1053 Printers used does not exceed 8. 

Message unit size is defined as somewhat larger 
than the average size of the message or information 
to be printed out. This may be within the range of 
20-319 words which is dictated by the minimum and 
maximum core sizes that may be specified for a 
message buffer. In practice, an optimum size may 
fall between 40 and 80 words (80 to 160 characters). 

Definition of the message unit size is also depen- 
dent on whether messages to the 1053 Printer are to 
be buffered. 

If non-buffering is employed, the message must 
never be greater than that defined for a message 
unit. If the user plans to print out long messages 
or a large number of messages; has adequate core 
storage, and makes efficient use of disk space, the 
message unit size should be large. Assuming 
FORTRAN compilation is planned, the message unit 
size should be at least 81 words (162 characters). 

If buffering is preferred (because the user is 
pressed for core storage, but has enough disk space 
for a number of sectors for the buffering of mes- 
sages), the size of a message can be any length; 
that is, greater than the size of the message unit. 
The message unit size can now be defined as small 
as 20 words (40 characters). 

In general, a large buffer size results in a more 
efficient use of disk space and a corresponding less 
effective utilization of core storage. 
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Determination of Disk Buffer Size 

The following guide rules may be used for deter- 
mining the size of the disk buffer: 

Rule 1. For random message requests, if the 
user plans to print out less than 10, 000 
characters per hour on a single 1053 
Printer, the device utilization will be less 
than 20%. A large percentage of applica- 
tions falls into this category. In this situ- 
ation, for a single 1053 Printer, the user 
will almost never require more than three 
disk message buffer spaces. 

Rule 2. If the user plans to print out a large number 
of messages in a small interval of time 
(e.g. , data logging at 50 messages), he 
will require a large number of disk message 
spaces. The length of the log determines 
how big the disk buffer shall be. 

The following example illustrates a representative 
calculation. Assume: 

1. A 10 message-unit log at the end of every 15 
minutes. 

2. An average of 50 operational information mes- 
sage units per hour. 

3. An average of 10 alarm message units per hour. 

4. Message unit size for 1053 Printer (i. e. , BZ1) 
= 50 words. 

5. Average length of messages = 30 words. 

To handle a 10 message-unit log will probably 
require 9 sectors; that is, assuming that all 10 mes- 
sages are called to be typed at the same instant of 
time. The reason for the 9 is because 1 message is 
moved directly to the output area, the remaining 9 
being buffered on disk. 

Let us further assume that the remaining 60 mes- 
sage units are randomly distributed across the hour 
(that is, 10 in one 10 minute period, and perhaps none 
in the next 10 minute period, etc.). 

Then, 

Number of characters typed = 60 x 30 x 2 

60 x 30 x 2 



Ttaie to type these charaeters= 



15 x 60 



= 4 minutes 



The utilization of the 1053 Printer during the hour 



is 



Therefore, the number of sectors required 
for the messages sent at random is 3 (From Rule 1). 

And the number of sectors required for the log 
is 9 (From Rule 2). Total number of sectors re- 
quired is 9 + 3 = 12 sectors. 

Now, assuming more than one typewriter is used, 
sum the number of sectors needed for each addi- 
tional 1053 printer (computed as above). Let the 
total overall number of sectors = X. 

X + 7 
Then NOCYL = complete cylinders 



8 



(ignore remainder) 

In this example, NOCYL = 



12 + 7 



= is com- 



60 



= 6.67% 



plete cylinders. If three extra 1053 printers were 
included to handle random message requests, then 
from Rule 2, six additional sectors will be required. 

12 + 6 + 7 
NOCYL now becomes r — — = 3 com- 

o 

plete cylinders. 

The user may also use the above guide rules to 
compute nonprocess disk buffering. Assuming a 
random message distribution pattern, each 1053 
printer will require three sectors. Unless he has 
excessive disk storage, nonprocess disk require- 
ments should be kept to a bare minimum. 



CALCULATING TASK CORE SIZE 

1. For an off-line system, the size of TASK is 
calculated as follows: 

TASK = FKED AREA 

+ Disk device tables 

+ DISKN 

+ 1053 device tables 

+ 1816 device tables 

+ TYPEN 

+ 1053-1443 Timing Response Routine 

+ 1443 device table 

+ PRNTN 

+ Constants, work areas, etc. 

+ CARDN (always included) 

+ TASK Program Set 

Where 

TASK Program Set = 1690 + 8 X N + 653 X ONLIN 

+ 200 X TRORG 

+ 221 X TA01 X TRORG 

+ 358 X TA02 X TRORG 
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+ 162 X TA03 X TRORG 
+ 20 X MKLEV 
+ 110 X DORG1 

TRORG, ONLIN, TA01-3, DORG1, and MKLEV 
are TASK equate cards. 

The remaining parameters have already been 
given in the calculation for Skeleton I/O: see 
System Design Considerations: System Director . 

Once the system is built, the starting address 
of variable core is found at word 66 hexadecimal 
(102 decimal) of the Fixed Area. The label of 
this location is $VCOR. For an on-line system, 
the start address of variable core is equal to 
VCORE. 



THE IBM NONPROCESS SYSTEM 



The IBM Nonprocess System is a nonprocess system 
deck which constitutes the major portion of the TSX 
system. It is composed of control programs and a 
complete package of IBM relocatable subroutines 
necessary for the proper execution of the TSX sys- 
tem. A breakdown and brief description of each of 
its component parts in the order in which it is sup- 
plied and loaded to disk follows below (see Figure 62). 

Cold Start Cards. The on-line or off-line system is 
brought into operation by three cold start cards (two 
Cold Start and one Name Card) which initiate the 
Cold Start program. A cold start requires that a 
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ERROR PROGRAMS 
IBM TSX SUBROUTINE LIBRARY 



Figure 62, The IBM Nonprocess System 
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minimum of one core load be resident in the core 
load area on disk for execution. The name of the 
initial core load as well as the logical assignments 
of the physical disk drives are obtained from the 
Name Card. 

System Generation (SYSGEN) TASK and Loader 
Cards. SYSGEN TASK is the "starter" system 
which contains the basic minimum components for 
initial system generation. It is loaded to memory 
by a four-card TASK High Core Loader. 

System Loader. The System Loader performs 
three essential functions at system generation 
time: It 1) loads the IBM Nonprocess System to 
disk drive zero and file-protects this disk drive 
from sector to the start of Nonprocess Work 
Storage, 2) builds the Assignment (AT) and Input- 
Output Unit (IOUT) Tables and stores them on disk 
and 3) edits the disk and the Disk Communications 
Area with a standard layout as a base for TSX non- 
process programs. It is also used for reload pur- 
poses and to make partial modification, if any, to 
the TSX system. 

Disk LET/FLET Tables . LET (Location Equivalence 
Table) serves as a disk map for system programs, 
subroutines, and relocatable programs. It contains 
the name of each function and its size (that is, disk 
block count, where 1 disk block = 20 words). Each 
entry point in a subroutine has an entry in the LET 
table. As the user stores his own relocatable pro- 
grams on the disk, entries for these programs are 
also made in LET. 

FLET (Fixed Location Equivalence Table) is a 
map of core loads and data stored in the Process 
Core Image Storage (or Core Load) Area, and the 
Save Areas on disk. 

Disk Communications Area (DCOM). DCOM is used 
by all nonprocess system programs and is stored on 
logical disk drive zero at sector 00000. It is essen- 
tially a disk communications map of vital information 
needed by nonprocess system programs. Some 
words within DCOM are used by process programs 
such as Cold Start. 

This area is brought into core each time a // JOB 
is read; certain words are then initialized to reflect 
the current status of the disk as depicted by the LET/ 
FLET tables. Whenever a // END or // XEQ card 
is encountered, DCOM is written back to disk. 

Bootstrap for Nonprocess Supervisor. This is a 
relocatable program that can be located anywhere in 



core for any one system. When VCORE (the start 
address of variable core) is established, its entry 
point in variable core is fixed. The bootstrap 
serves as a linkage between the System Director 
or TASK, and the Nonprocess Supervisor. It is 
updated during system generation by TASK, the 
System Loader, and the Skeleton Builder program. 
It always resides on sectors 1 and 2 of logical disk 
drive zero. 

Nonprocess Supervisor (SUP). This program directs 
all nonprocess monitor operations. It decodes the 
monitor control records in the stacked input for non- 
process jobs, and calls the appropriate monitor 
program (Assembler, FORTRAN Compiler, Simu- 
lator, etc.) to perform the desired operation. The 
supervisor provides continuous processor-controller 
operation during a sequence of jobs that might other- 
wise involve several independent programming sys- 
tems. It also supervises the transfer of control 
between monitor and user programs. 

Core Load Builder (CLB). This program constructs 
mainline nonprocess and interrupt core loads from 
user-written programs. Using data contained in 
control records and in the program itself, the Core 
Load Builder combines the mainline program, re- 
quired subroutines, generated work area tables and 
transfer vectors into an executable core load. 

Cold Start Program (CLST). This program initiates 
the TSX system into operation. In an on-line sys- 
tem, it loads the System Skeleton to core and trans- 
fers control to the System Director. In an off-line 
system, TASK is loaded to core, and control trans- 
ferred to the first executable instruction within 
TASK. 

Disk Utility Program (PUP). DUP is a set of rou- 
tines designed to aid the user in performing the 
functions of disk maintenance. That is, it has the 
capabilities of storing, deleting, and outputting user 
programs, defining system and machine parameters, 
and also of maintaining communications areas. DUP 
also automatically updates the LET/FLET tables to 
reflect all changes to the disk. It is called into 
memory by the Nonprocess Supervisor. 

Assembler (ASM). The Assembler is a disk -oriented 
symbolic assembly program that translates programs 
written in symbolic language into machine language. 
Basically, it is a one-for-one type assembly pro- 
gram. Provision is also included for the user to 
easily make use of input-output, conversion, and 
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arithmetic subroutines that form a part of the sub- 
routine library. 

FORTRAN Compiler (FOR). This is a disk-oriented 
program that translates programs written in the 
FORTRAN language into machine language, and 
automatically provides for the calling of the appro- 
priate arithmetic, functional, conversion, and input- 
output subroutines. 

Simulator (SIM). The Simulator provides the user 
with the means for testing and debugging programs 
without disruption to the on-line process. 

Error Programs. This is a collection of error 
subroutines called by the TSX Error Alert Control 
(EAC) program. EAC is executed when an internal 
or TSX detected error occurs. 

Subroutine Library. The Subroutine Library is a 
package of IBM TSX and user-written subroutines 
resident in the relocatable subroutine area of disk. 
IBM TSX subroutines include: Real-time subrou- 
tines, Arithmetic and Functional subroutines, Con- 
version subroutines, FORTRAN I/O subroutines, 
and DP I/O subroutines. 



Note that control programs are supplied assem- 
bled in absolute format; subroutines, in relocatable 
format. The System Director and TASK are the 
only exceptions: they are supplied as source decks. 

In its original form, the IBM Nonprocess System 
does not contain those parameters which define and 
differentiate a system currently under construction 
from another, and is therefore unsatisfactory for 
direct use by a customer installation. Variability 
of interconnection of input-output devices is, how- 
ever, permitted at the hardware level, and it is 
these variations which need to be communicated to 
the I/O subroutines if correct and intended operation 
is to be realized. 

This communication is accomplished through the 
medium of the System Loader which accepts as in- 
put a statement of the system configuration (including 
the correlation between external device and inter- 
rupt identification, and internal hardware -sensed 
codes) and the IBM Nonprocess System master deck. 
To ready the IBM Nonprocess System for system 
loading, data from assignment cards is integrated 
into the master deck. 



SYSTEM LOADER OPERATION 



Skeleton Builder. The Skeleton Builder uses tables 
constructed by the System Loader, user-assigned 
control records, and user-specified programs and 
subroutines to build the System Skeleton. The Sys- 
tem Skeleton constitutes that portion of the system 
that remains in core during the execution of a TSX 
on-line system. 

Stand-alone Utilities. These are optional utility 
routines which can only be loaded and executed under 
the control of TASK (in an off-line TSX system). 
The five utilities are: TASK Card to Disk, TASK 
Disk to Card, TASK Disk Patch, TASK Disk Dupli- 
cation, and TASK Disk Loader. 

System Director. This is the nucleus of the System 
Skeleton. It maintains control over the on-line 
process application by servicing all interrupts, 
handling error conditions, providing timer control 
over the process, and process program sequencing. 
The System Director is supplied as a source deck. 

TASK. TASK is a "builder" operating system which 
controls the system generation process, and provides 
for the definition of the TSX system according to user 
specifications. It is supplied in source format. 



The System Loader assumes at system load time 
that only one disk drive (logical disk drive 0) is 
present on the system. After the IBM Nonprocess 
System is loaded, the user has the option of reloca- 
ting certain disk areas (such as the Core Load Area, 
Process Work Storage, etc.) to an auxiliary disk 
drive or drives. This and other aspects of disk 
organization are discussed in System Design Con- 
siderations: Disk System Configuration. 

Three essential functions are accomplished 
during a system load operation. These are: 

• Loading the IBM Nonprocess System, including 
the subroutine library, to disk 

• Building various TSX operating tables 

• Editing the disk layout 



Loading the IBM Nonprocess System 

A typical sequence in which the input programs 
are loaded by the System Loader is given in Fig- 
ure 63. 
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Figure 63„ Sequence of Control Cards at System Load Time 



Each program in the IBM Nonprocess System is 
preceded by an *LDDSK Control card which is read 
and analyzed by the System Loader. As a single 
sector at a time of a program is accepted, the ap- 
propriate sector address to which it is written on 
disk is determined by the first two words following 
a sector break record. A sector break record is a 
header record which serves two purposes: 

• Enables the System Loader to establish a new 
disk sector either at a relative or absolute 
sector address 

• Indicates if the phase of a program being read 
in involves either a principal I/O device or a 
principal print device, and, if any, which one. 

Each phase within a program contains one sector 
break record. For example, since the FORTRAN 
Compiler is made up of 27 phases, it has 27 sector 
break cards. Sector break records are supplied 
in binary format (see IBM 1800 Time-Sharing Execu- 
tive System, Operating Procedures, Form C26- 
3754. A separate discussion of sector break records 
is given at the conclusion of this section) . 



As each program is loaded to disk, an entry in 
the respective LET/FLET tables is updated accord- 
ingly. Note that the relocatable subroutine library 
may include user-written subroutines provided they 
are assembled/compiled by the TSX Assembler/ 
FORTRAN Compiler. During the System Load 
stage, an error program within the System Loader 
ensures proper handling of error situations . Fig- 
ure 64 reflects the layout of the IBM Nonprocess 
System on logical disk drive after a system load 
operation. 



Building the TSX Operating Tables 

After the assignment cards have been read, two 
tables are built: 1) the Assignment Table, 2) the 
I/O Unit Table. 

The input to the table -building phase are the 
assignment cards which are prepared by the user 
and merged with the IBM Nonprocess System. 
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The Assignment Table (AT) serves to inform the 
Skeleton Builder (at Skeleton build time) which 
I/O device or PISW is assigned to a specific ILSW 
bit on a specific interrupt level. A 16-bit (IAC) 
code entry is furnished for each ILSW bit, which 
the Skeleton Builder later replaces by a branch ad- 
dress to transform it into the Master Branch Table 
(MBT). The (AT) table is stored on disk in reverse 
sequence; that is, level zero in highest location, 
etc. The number of AT entries and I/O interrupts 
are counted during the table build process and stored 
in sector 1 of logical drive zero. 

The I/O Unit Table is constructed from the logi- 
cal unit number (LUN) and/or its associated inter- 
rupt assignment code (IAC). The table is 44 words 
in length and is built in descending sequence; a 
maximum of 19 entries is allowed. The IOU Table 
is stored in the last 87 words of sector 2. 



Editing the Disk Layout 

The disk editing phase is entered after all absolute 
(or core image) and relocatable programs have been 
stored on disk, and the *DEDIT control card has 
been read. 

The editing function initiates the disk and disk 
communications area with a standard layout as a 
base for TSX nonprocess programs. It uses LET/ 
FLET and DCOM as communications areas. 

In order to fix the boundaries of the various disk 
areas, certain information is required: 

• Size of core of the Object Machine. This should 
be specified on the *DEDIT control card; other- 
wise, the source core size is construed as object 
core size. 

• Size of Message Buffer. Note that the only area 
definition made by the user before the IBM Non- 
process System is loaded is the length of the 
message buffer. This must be specified on the 
*DEDIT control card and should correspond to 
NOCYL (TASK equate card) at TASK assembly 
time. The calculation of message buffer size 

is discussed at some length in the section System 
Design Considerations: TASK. 



• Size of IBM Nonprocess System areas. These 
are made known to the System Loader after the 
system is loaded to disk. 



Note that the boundaries of the following areas: 

Nonprocess Save Area 
Process Save Area 
Special Save Area 

depend on the estimated size of the System Skele- 
ton (see System Design Considerations: Disk Sys- 
tem Configuration ). 

LET/FLET Entries. Fixed entries, derived from 
control cards, exist in LET for the following: 

Disk Communications Area (DCOM) 

Master Branch Table/Assignment Table (MBT/AT) 

Skeleton Subroutine Map (SK-SUB) 

Nonprocess Supervisor (SUP) 

Core Load Builder (CLB) 

Disk Utility Program (DUP) 

Assembler (ASM) 

FORTRAN Compiler (FOR) 

Simulator (SIM) 



An entry for each subroutine is made while it 
is being loaded. 

FLET entries, on the other hand, are made 
from computed and assumed sizes for the following: 

Cold Start 
Error Programs 
Message Buffer 

After these FLET entries have been made, the 
. E entry of LET is updated to reflect the boundaries 
of the Nonprocess Work Storage for the remaining 
disk space available. 

DCOM Entries. The first sector address of each 
of the following areas are entered in DCOM: 

Nonprocess Supervisor (SUP) 

Disk Utility Program (DUP) 

Assembler (ASM) 

FORTRAN Compiler (FOR) 

Simulator (SIM) 

Location and Fixed Location Equivalence 

Tables (LET/FLET) 
Nonprocess Work Storage (NPWS) 
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FUNCTION OF THE *ASSIGNMENT CARDS 

The assignment card serves to assign the various 
I/O devices and machine functions to a particular 
interrupt level and bit. Assignments are in the 
form of interrupt assignment codes (IAC) which are 
fixed for each device, and logical unit numbers 
(LUN) which are selected by the user for linkage 
to user-written FORTRAN programs. 
Through the assignment card, the user 

1. Assigns IAC codes to the various interrupt 
levels and ILSW bits (within the level used 
on the system). 

2. Assigns LUN numbers as they are used in 
user-written FORTRAN programs, to certain 
data processing input-output (DP I/O) devices 
by equating them to corresponding IAC codes. 

Interrupt assignment codes uniquely define all 
process interrupts, I/O devices, console interrupts, 
and interval timers. They are fixed and may not be 
changed by the user. Their values range from 00 
through 63. 

Logical unit numbers on the other hand are used 
to identify DP I/O devices in user-written FORTRAN 
programs, and are specified by the user at system 
load time. The LUN's are entered into the I/O 
Unit Table to permit communication of FORTRAN 
programs with FORTRAN I/O at object time. Once 
fixed, they cannot be changed without repeating the 
Assignment Table building phase of the System 
Loader and Skeleton rebuild under certain conditions, 
as well as the recompilation of every user-written 
FORTRAN program utilizing DP I/O devices 
affected. 

A maximum of 19 different LUN's is possible on 
a TSX system with a full complement of I/O devices. 
LUN values range from 01 through 44. Note that 
no LUN may be assigned to more than one particular 
device. In a minimum (8K) TSX system, it is ad- 
visable, for purposes of space conservation, to use 
the lowest LUN numbers first, since the System 
Loader will build a table providing space for all 
LUN's up to the largest number assigned. Keeping 
LUN numbers small, therefore, conserves core 
storage. The reader should refer to IBM 1800 
Time-Sharing Executive System, Operating Pro- 
cedures , Form C26-3754 for details of assignment 
card formats and operational procedures. 

Examples of the Use of LUN Numbers/IAC Codes. 
Consider the following assignment cards: 



EXAMPLE 1. 

0|3| |0161 |0|l|/|4|l| 



|2h|3|7|/|0|ll,10|5|,|5|3|,|0|a| 



Level 3 contains 6 ILSW bits. IAC 01 repre- 
sents an 1816/1053 printer which has a LUN of 41 
assigned to it, while IAC 02, representing a 1442 
card/read punch, has the same LUN as its IAC; 
that is, it requires no LUN entry. The combination 
37/01 represents another printer to which a LUN of 
01 is assigned by the user; IAC 05 represents a 
1627 plotter unit with the same LUN number as its 
IAC code (that is, 05). IAC 33 represents a process 
interrupt. IAC 08 represents a 2310 disk drive 
which has no assignable LUN number. 

EXAMPLE 2. 9|9| \fi\z\ |4|3|/|0|l|,|4|4|/|fl9| I I 

The 1816 keyboard on group 2 has a LUN of 1 
while the second magnetic tape drive has a LUN of 9. 



EXAMPLE 3. 
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AND A TOTAL OF 000031 ILSW BITS 
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This illustrates an example of user assignment 
of I/O devices and process interrupts to 12 levels 
of interrupts defined in a sample machine configu- 
ration given in System Design Considerations: Sys- 
tem Director. 

Note that only two I/O devices have been assigned 
LUN numbers: 

1627 Plotter (IAC = 05) = 07 
1443 Printer (IAC = 06) = 03 



during this phase include (see Editing the Disk 
Layout): 



1. 
2. 
3. 



5. 



Initialization of the FLET area on disk 

Calculation of the source core size 

Entry of the object core size into the disk 

communications area (DCOM) 

Entry of message buffer size in cylinders 

into DCOM 

File protection of the IBM Nonprocess System 



The remaining devices use their IAC codes (a 
user option) as LUN's. Note also that process 
interrupts and certain DP I/O devices have no 
assignable LUN's. The map correlates each 
process interrupt or device with its level, bit, 
IAC code, and LUN (if any). 

Note that IAC/LUN groups may contain either 
the IAC code alone or a combination of the IAC 
code and the LUN as assigned by the user to that 
IAC (and separated by a slash). When the LUN 
number is omitted, it means that either no LUN 
is defined (that is, not assignable) or that the Sys- 
tem Loader considers the LUN to be identical to 
the IAC code. The user has the option of assigning 
the value of the corresponding IAC code to the LUN 
for a particular device. 



Devices with no Interrupt-entry on any Level 

The 1816 Keyboard units on printer groups 1 and 2 
and the second Magnetic Tape drive have no separate 
defined interrupts, their interrupts being the same 
as that of the first 1816/1053 printer and first mag- 
netic tape drive respectively. However, a LUN has 
to be assigned to them whenever they are used in 
connection with FORTRAN programs. In these 
three special cases, a dummy interrupt level number 
99 is defined, followed by a standard format entry 
for bit count and IAC code. The dummy level 99 
can be omitted should all three possible devices have 
a LUN identical to their IAC code. 



Parameters 

Two important parameters must be specified by 
the user: 

1. Size of core of the object machine 

2. Size of message buffer size 

The calculation of the core size of the source 
machine (that is, the machine on which the IBM 
Nonprocess System is loaded) is achieved by 
TASK and the result is stored in the Fixed Area 
in core. The System Loader then places this result 
in DCOM. The user may exercise the option to de- 
fine a different core size for the object machine 
(that is, the machine on which the TSX system is 
executed). This will also be stored in DCOM. If 
the object core size is not specified on the *DEDIT 
card, the source core size will serve as object 
core size. 

As noted earlier, the only area definition made 
by the user before the IBM Nonprocess System is 
loaded is the definition of the length of the disk 
message buffer. This is specified in cylinders in 
the *DEDIT card and must equal NOCYL (TASK 
equate card) . The calculation of the size of the 
message buffer is discussed in detail in System 
Design Considerations: TASK. 

An example of the use of the *DEDIT card is 
given below: 



THE *DEDIT CONTROL CARD 

The *DEDIT Control card starts the disk editing 
phase: that is, it starts the function of editing the 
layout of the disk during which time the System 
Loader uses LET/FLET and DCOM as communi- 
cations areas . Some of the activities carried out 



*DEDIT 16K 011CYL 



THE SOURCE CORE-SIZE IS 
THE OBJECT CORE-SIZE IS 



016384 
016384 



The *DEDIT control card is the last card recog- 
nized by the System Loader. 
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Reentering the Disk Edit Phase 

The disk editing function permits a reentry by the 
user after the IBM Nonprocess System is loaded 
and control returned to SYSTEM TASK. This may 
be needed for: 

1. Rebuilding the FLET table. 

2. Changing the Message Buffer Size. 

3. Changing Object Core Size. 

4. Changing the assignment of LUN numbers, such 
as, for example, if an error was made in the 
user-assignment of an IAC or a LUN. 



SUMMARY OF ASSIGNMENT CARD RESTRICTIONS 

Assignment designation is governed by the following 
rules: 

1. A separate assignment card is used for each 
interrupt level. Assignment cards may be 
in any order of interrupt level number. 

2. The number of IAC/LUN codes specified per 
level must be equal to the number of interrupt 
level status word (ILSW) bits used. 

3. Only the IAC code 33 (for process interrupts) 
may be used more than once. In the case of 
LUN numbers, the same LUN cannot be assigned 
to more than one device, nor can a device have 
more than one LUN assigned to it. 

4. For IAC codes 42, 43, and 44, a dummy inter- 
rupt level entry of 99 must be specified. These 
refer to the 1816 keyboards on printer groups 

1 and 2 and the second magnetic tape drive. 

5. For RPQ devices, IAC codes 20-31 and 45 - 
63 may be used. In any TSX system, IAC 
codes 00, 02, 04, and 32 must be used; 01 or 
06 must also be used. 

6. If more than one group of process interrupts 
are assigned to a particular level, the second 
group must be treated as an RPQ device, given 
an RPQ IAC code and a user-written ISS sub- 
routine to accommodate this device. The sub- 
routine will indicate to the System Loader which 
IAC code it responds to; it will have to be core- 
resident at all times. 



SECTOR BREAK RECORDS FOR ABSOLUTE 
PROGRAMS 

Absolute programs are generated by an absolute 1800 
assembly and are loaded by the System loader, one 



record at a time (taking into account all data breaks 
and origin changes), to disk in true Core-Image 
Format. That is, each program resides on disk 
in exactly the same format in which it will reside 
in core storage. Core-Image Format is also 
called Data Format because a program thus stored 
on disk can be transferred to core by a single call 
(to DISKN) without any data manipulation. All IBM 
system programs (e.g. , Assembler, FOBTRAN 
Compiler, Simulator) are stored in this format. 

However, it is from a header or sector break 
record that the absolute loader portion of the Sys- 
tem Loader determines the sector address at which 
succeeding data is to be stored. The sector within 
which the data is to be stored is first read into 
core, one word of data at a time, until that sector 
in core is completed. When full, the 320-word 
sector buffer is written to disk and the next sector 
break record is read to locate the next sector to 
be written. 

Four types of Sector Break Records are used by 
the System Loader: 

Type 1 
Type 2 
Type 9 
Type E 

Note that Type F cards are "trailer" or "trans- 
fer" cards which occur at the end of a binary deck. 
The format of each card is in the IBM 1800 Time- 
Sharing Executive System, Operating Procedures, 
Form C26-3754. 

From each type of sector break record, the 
System Loader interprets the sector address as 
follows: 

Type 1: As an absolute address. 

Type 2: As a displacement from the last sector 
loaded. 

Type 9: As a displacement from the last abso- 
lutely defined sector address (that is, 
defined by a Type 1 sector break record 

Type E is a special sector break record type 
used only by the Simulator subroutine package. It 
is treated by the System Loader like a T3>pe 1, ex- 
cept that it causes data to be streamed to the disk 
contiguously, ignoring data breaks brought about 
by BSS's; or by an ORG to the same location as 
the data card immediately following the Type E 
record. 

The Type 1 sector break record is generated by 
an ABS statement in an absolute assembly; Type 9 
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or Type E records must be inserted manually in 
the object deck by the user. Type 2 sector break 
records are generated during 1) assembly of 
mainline -type programs without an ABS statement, 
and 2) FORTRAN compilation of mainline pro- 
grams. 

The sector address on disk to which the System 
Loader begins writing the program is defined in the 
second word of the program following the ABS and 
first ORG statements. The first word may contain 
any value; no word count is required. An example 
is given below: 



] SAMPLE CODING FORM 


( 21-30 


31-40 


41-50 


51-60 


61-70 
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The first DC is at location /0538, the second 
at /0539. The System Loader will start to load at 
sector /0100. The first word of the sector is at 
/053A — the content of /0538 is not loaded to disk 
since it does not constitute an integral part of the 
program. If this program was later called from 
the disk, the word count and sector address would 
be specified by the AREA (portion) of the disk call 
required at /0538 for proper execution. 

If the first two words of the program are followed 
by another ORG statement, as shown below, the 
program will be placed in a location on disk reflec- 
ting a displacement from the address defined by the 
first ORG. 



SAMPLE CODING FORM 


1 — 10 


1 1-20 


21-30 


31-40 


41-50 


l|2|3|4|5|6|7|8|9|0 


|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|C 
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The program will be loaded starting at position 
15 of sector /0100, leaving positions through 14 
at whatever value they previously had on disk. The 
displacement D could have any value — thus skip- 
ping over several sectors. 

Note, however, that D cannot have a negative 
value. This is a necessary requirement of the TSX 
system which is designed such that it is impossible 
to inadvertently destroy a program residing on pre- 
ceding sectors by back-origining. Thus, the lowest 
origin in the program is required to be immediately 
after the ABS statement. As shown below, this 
constitutes, in no way, a system limitation. Note 
that normal back origins, as they occur in every 
program, are perfectly legal. 



) SAMPLE CODING FORM 


\ 21-30 


31-40 


41-50 1 51-60 


61-70 




1|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 
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The program will be correctly located on disk 
reflecting exactly the layout in core. 

The following example illustrates an ERROR 
STOP (System Loader error message - L05) 
situation. 



J SAMPLE CODING FORM 


( 21-30 


31-40 


41-50 


51-60 


61-70 


ft|2|3|4|5|6|7|8|9|0 
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This is clearly illegal because whatever program 
that was residing on sector /OOFF would be de- 
stroyed. 

The final example below illustrates Type E sector 
break record functioning: 



SAMPLE CODING FORM 
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If this sequence is preceded by a Type 1 or 
Type 9 sector break record, the data up to the 
second ORG would not appear on disk, but would be 
overlaid by the second sequence. If, however, the 
sequence is preceded by a Type E card, all the 
data would appear on disk, and the data following 
the second ORG statement would immediately follow 
the first with no sector break being forced. 



SYSTEM DIRECTOR 



When the IBM Nonprocess System is loaded, assign- 
ment cards supply the System Loader with data which 
relate to the interrupt level allocation of I/O units, 
process interrupts, interval timers, etc. That is, 
they provide a statement of the system and interrupt 
configurations. 

At System Director assembly time, the System 
Director must also be tailored to meet the exact 
requirements set by the user. These requirements 
include: 



1. Definition of the size of the System Director 

2. Definition of functions required 

3. The allocation of internal and external inter- 
rupt levels 

4. The number of CALL Count routines to be 
included by the user 
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Since the System Director must be assembled and 
stored on disk before the TSX System Skeleton can 
be built, some means must be employed to make the 
System Director aware of these requirements. To 
achieve this, a set of System Director EQUATE 
cards (provided pre -punched by IBM) is prepared 
by the user and physically placed in the System 
Director source deck. The resulting integrated 
deck is then assembled under the control of an off- 
line nonprocess monitor. Figure 65 depicts the 
physical relationship of the EQUATE cards to the 
System Director Source Deck. 

Figure 66 illustrates an example of a complete 
set of System Director EQUATE cards. In terms 
of definition requirements , the set can be broken 
down into convenient subsets as follows: 



a) Size of System Director 



b) Functions required 
(Interval Timer Control, 
Time-Sharing, Opera- 
tions Monitor, and 
Error Alert Control 
(EAC) DUMP) 

c) Allocation of internal 
and external interrupt 
levels 



VCORE, NUQUE; 
also a function of b), 
c) , and d) 

ITCUS, TBASE, 
CBASE, TIME 1-2, 
TISHA; TIMES; 
OPMOI and DUMP1 



NULEV, USE00-23, 
NB00-23, NIL00-23, 
NLWS1-2, and 
ICLL1-2 



d) Number of CALL Count NITP1-2 
routines required by user 



/ 



Blank Cards 

(2 inches) 



(// END OF ALL JOBS 
[_// JOB 




| *SY STEM SYMBOL TABLE 
f*LIST 



^OVERFLOW SECTORS 3T 



UL 



{ //JOB 



/ 



System Director 
EQUATE Cards 



'SAVE SYMBOL TABLE 



// ASM SDEQU 




y 



Figure 65. System Director Source Deck and EQUATE Cards 



SIZE OF SYSTEM DIRECTOR 

Since the System Director is a component part of the 
System Skeleton, it must be core-resident at all 
times in an on-line system in order to respond to 
the real-time world. Its required core size will, 
however, vary according to the user's machine con- 
figuration, process requirements, and other options. 

For example, if the user specifies when the sys- 
tem is assembled that time-sharing is to be used, 
the Time-Sharing Control (TSC) program will be 
included in core. If he has no use for time-sharing, 
TSC may be eliminated. 

Similarly, if the user specifies that interval 
timers are not used, the Interval Timer Control 
(ITC) program as well as TSC may be eliminated. 
It is a rule, however, that ITC must be in core if 
time-sharing is utilized. The Program Sequence 
Control (PSC), Error Alert Control (EAC), and 
Master Interrupt Control (MIC) programs must 
always be used, but each is variable in size accord- 
ing to the number of interrupt levels elected. 

In addition, a work area is associated with each 
interrupt level; for example, if the user elects 12 
levels of interrupts, 12 work areas are required; 
if he elects 24 levels, the System Director will re- 
quire 24 work areas. Three other additional work 
areas are included: one each for Error, Mainline, 
and Nonprocess. 
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NULEV 
USEOO 
USEOl 
USE02 
USE03 
USEO4 
USE05 
USE06 
USE07 
USE08 
USE09 
USE 10 
USE1 1 
USE 12 
USE 13 
USE 14 
USE 15 
USE 16 
USE 17 

USE 18 

USE 19 

USE20 

USE21 

USE22 

USE23 

NBOO 

NB01 

NB02 

NB03 

NB04 

NB05 

NB06 

NB07 

NB08 

NB09 

NBlO 

NB1 1 

NB12 

NB13 

NB14 

NB15 

NB16 

NB17 

NB18 

NB19 

NB20 

NB21 

NB22 

NB23 

NILOO 

NIL01 

NIL02 

NIL03 

NIL04 

NIL05 

NIL06 

NIL07 

NIL08 

NIL09 

NIL10 

NIL1 1 

NIL12 

NIL13 

NIL14 

N1L15 

NIL16 

NIL17 

NIL18 

NIL19 

NIL20 

NIL21 

NIL22 

N1L23 

NLWS1 

NLWS2 

NITP1 

NITP2 

ICLL1 

1CLL2 

ITCUS 

TBASE 

CBASE 

TIME1 

T1ME2 

VCORE 

NUQUE 

DUMP1 

OPMOI 

TISHA 

TIMES 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



NUMBER OF LEVELS USED 



/007F 
/FFFF 



/oooo 

/07D0 
10000 



1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
1 -LEVEL USED 
I -LEVEL USED 
1 -LEVEL USED 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST ILSW BIT 
1+HIGHEST IL5W BIT 
1+HIGHEST ILSW 31 T 
1+HIGHEST ILSW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW SIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 
1+HIGHEST PISW BIT 



NO. 
NO. 



PROG. 
PROG. 



INT, 
INT. 



0-NOT USED 
Q-NOT USED 
6-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
0-NOT USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
USED 
GROUP 0-13 



SYD00060 
SYD00070 
SYD00080 
SYD00090 
SYD00100 
SYD001 10 
SYD00120 
SYD00130 
SYD0014Q 
SYDOOI50 
SYD00160 
SYD00170 
SYD00180 
SYD00I90 
SYD00200 
SYD00210 
SYD00220 
SYD00230 
SYD0024Q 

SYD00250 
SYD00260 
SYD00270 
SYD00280 
SYD00290 
SYD00300 
SYD003 10 
SYD00320 
SYD00330 
SYD00340 
SYD00350 
SYD00360 
SYDC0370 
SYD00380 
SYD00390 
SYD00400 
SYD004 10 
SYD00420 
SYD00430 
SYDC0440 
SYD00450 
SYD00460 
SYD00470 
SYD00480 
SYD00490 
SYD00500 
SYD00510 
SYD00520 
SYD00530 
SYD00540 
SYDOC550 
SYD00560 
SYD00570 
SYD00580 
SYD0C590 
SYD00600 
SYD00610 
SYD00620 
SYD00630 
SYD00640 
SYD00650 
SYD00660 
SYD00670 

SYDOoeeo 

SYD00690 
SYD007C0 
SYD00710 
SYD00720 
SYD00730 
SYD00740 
SYD007EO 
SYD00760 
SYD00770 
SYD00760 
SYD00790 



ENTRY 1 



GROUP 14-23 SYD00800 



NO. COUNT SUBRS. GROUP 1 SYD003 1 

NO. COUNT SUBRS. GROUP 2 SYD00320 

INT. CORELOAD LEVEL MASK SYD008:'0 

INT. CORELOAD LEVEL MASK SYDC0840 

1-1TC USED 0-NOT USED SYD008S0 

CLOCK BASE=^ILSEC*TBASE SYD00B60 
COUNT BASE=MILS*TBASE*CBASESYD00870 

TIMER C MILS*TBASE SYD0088C 

TIMER C MILS*TBASE SYD00890 
ADDR. 1ST WORD VARIABLE CORSYD009C0 

NUMBER OF QUEUE ENTRIES SYD00910 

1-EAC DUMP USED 0-NOT USED SYD009?0 

1-ITC RESETS O-USER RESETS SYD009:s0 

TIME-SHARING PERIOD SYD009&0 

1-TSC USED O-TSC NOT USED SYD009i>0 



PRIORITY 



WORD COUNT 



SECTOR ADDRESS 



PRIORITY 



WORD COUNT 



SECTOR ADDRESS 



ENTRY 2 









Figure 66* Example of a Set of System Director Equate Cards 



Figure 67. Mainline Core Load Queue Table 



Mainline Core Load Queue Table 

Resident within MIC is a Queue Table made up of 
three -word entries used for the stacking of main- 
line core loads requested for execution, as shown 
in Figure 67. 

Each time the QUEUE routine is called, an entry 
is made in the queue if there is not a like entry of 
equal priority and sector address already in the 
queue. Entries are removed from the Queue Table 
by the subroutines UNQ and VIAQ (see Program 
Scheduling) . 

The size of this table — that is, its maximum 
number of entries — is specified by the user on 
the NUQUE equate card. It should be large enough 
so that the Queue Table shall not overflow trader 
normal operating conditions. 

VCORE determines the starting address , which 
must always be even, of the variable core area. 
The appropriate value of VCORE can be arrived at 
by calculating the size of the System Director, 
Skeleton I/O and the user-written subroutines. 



Calculating System Director Core Size 

As discussed above, core size is a function of 
several parameters which are in turn determined 
by the number of features the user elects to include 
in his TSX system. The computation of this value 
in 16 -bit words can be simplified by using certain 
equate card entries as multiplication factors as 
shown below, where System Director Core Size 
is given as a summation of the following (these 
figures may change with modifications and versions 
of the system): 
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1116 (constant for MIC, PSC, and EAC and 

their work areas) 
+ 220 (if ITC is included: that is, when 

ITCUS = 1) 
+ 95 (if EAC dump is required: that is, when 

DUMP1 = 1) 
+ 109 multiplied by the number of interrupt 

levels (that is 109 x NULEV) 
+ 3 multiplied by the number of Queue 

entries (that is, 3 x NUQUE) 
+ 2 multiplied by the number of process 

interrupts (that is, 2 x sum of NIL00 

through NIL23) 
+ 2 multiplied by the number of programmed 

interrupts on levels through 13 (that 

is, 2 x NILSW1) 
+ 2 multiplied by the number of programmed 

interrupts on levels 14 through 23 (that 

is, 2 x NILSW2) 
+ 2 multiplied by the number of count sub- 

routines 0-15 (that is, 2 x NIPT1) 
+ 2 multiplied by the number of count sub- 

routines 16-31 (that is 2 x NIPT2) 
+ 334 (if TSC is included: that is, when 

TIMES = 1) 
+ 66 (if more than 14 levels are used) 
+ 6 (if more than 14 levels are used and 

ITC is included) 
+ 8 (if more than 14 levels and TSC is 

included) 

From the configuration set out in Figures 66 
and 68, a typical calculation is deduced below. 



System Director Core Size = 



1116 





+ 


220 




+ 


95 


(109 x 12) 


+ 


1308 


(50 x 3) 


+ 


150 


(2 x 57) 


+ 


114 


(2 x 12) 


+ 


24 


(2 x 0) 


+ 





(2 x 16) 


+ 


32 


(2 x 8) 


+ 


16 


TSC 


+ 


334 




3409 words 



DEFINITION OF FUNCTIONS REQUIRED 

Interval Timer Control 

When the ITCUS label is equated to 1, the ITC pro- 
gram is included within the System Director and 



serves to set up user-specified times and correct 
linkages to the user's subprograms. Once this is 
done, ITC will control the timers until one or more 
specified intervals have elapsed, at which point 
control is transferred to a user's subprogram. 

Specifications for any timer may be set or 
changed in relation to the timer base at any time 
during an on-line process operation by the calling 
sequence. 

It was mentioned in Functions of Executive 
Programs: The System Director, that a program- 
med real-time clock, a time-sharing control timer, 
and nine programmed interval timers are controlled 
(that is, updated) by the third machine interval timer 
C. It is, however, the user's responsibility at 
assembly time to establish: 

1. A primary time base (TBASE) for the real- 
time clock; that is, how often the clock should 
be updated. 

2. A secondary time base (CBASE) for the pro- 
grammed timers and time -sharing control 
timer. 



Primary Time Base 

This is that interval of time used to update the real- 
time clock, and is called the Interrupt Time Base. 
It is the product of the wired-in hardware time base 
and a number chosen by the user (TBASE) at assem- 
bly time, expressed as follows: 

INTERRUPT TIME BASE = (WIRED-IN HARD- 
WARE TIME BASE) X (USED -ASSIGNED 
NUMBER) 

For example, if the machine interval timer C is 
wired for a four millisecond time base and the real- 
time clock is to be updated every two seconds, the 
user-assigned number can be calculated to be 500. 
TBASE is thus equated to minus (-) 500. A negative 
number is used because the interval timer is incre- 
mented in the positive direction, causing an inter- 
rupt when zero is reached. The primary time base 
for the real-time clock in this example (that is, 
how often it is to be updated) is thus two seconds. 

To enable ITC to keep track of elapsed time 
since the last or previous interrupt occurred, a 
double-word TIME1 and TIME 2 is equated to the 
hexadecimal equivalent of the interrupt time base. 
This value is added to the real-time clock each time 
an interval timer C interrupt occurs. 
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In the above example, TIME1 and TIME 2 are 
equated to /0000 and /07D0. The Label TIME1 
is always /0000 unless the calculated interrupt time 
base exceeds 65,535 milliseconds. 

Secondary Time Base 

The programmed timer base for the nine pro- 
grammed timers and time -sharing control timer 
is a user-assigned multiple of the interrupt time 
base established for the real-time clock, and ex- 
pressed as follows: 

PROGRAMMED TIMER BASE = (INTERRUPT 
TIME BASE) X (USER -ASSIGNED NUMBER) 

For example, if the interrupt time base is fixed 
at two seconds, and the user wants the programmed 
timers to operate at 30-second intervals, the label 
CBASE is equated to 15. 

This base is used specifically for the nine pro- 
grammed timers and the time-sharing control timer, 
and is the smallest interval of time that can be 
specified for the programmed timers or for time- 
sharing operations. 



Time -Sharing 



The TIMES label specifies at assembly time whether 
or not time-sharing is to be used. 

It was noted in the preceding section that the pro- 
grammed timer base is the smallest interval of time 
that can be specified for programmed timing or 
time-sharing operations. When time-sharing is 
used, a user-assigned multiple of the programmed 
timer base is established. 

For example, if the programmed timer base is 
fixed at 30 seconds and the user desires time-sharing 
operations of two minutes' duration whenever the 
queue is empty, the label TISHA is equated to 4. 
Thus, the time-shared operation is terminated 
whenever the time interval specified (in this case 
two minutes) has elapsed. TISHA is identical to 
the parameter I in the requesting CALL SHARE 
statement in the mainline program. If the user 
wishes to remain in time-sharing until some core 
load name is put into the queue by an interrupt 
program which uses CALL ENDTS, then TISHA may 
be specified for the longest possible numerical value, 
that is, 32767. The reason for this is to keep the 
time -sharing function from exchanging core unneces- 
sarily at frequent intervals to check the Queue Table 
when no entries have been put in the queue. This is 
the recommended procedure. 



Operations Monitor 

The user may select an option in ITC to reset the 
Operations Monitor (a hardware feature) during 
nonprocess operations. He does this by equating 
the OPMOI card to 1 or 0: a 1 indicates that the 
monitor is to be reset by ITC; a indicates that 
the monitor is to be reset by user program control. 
It should be noted that the Nonprocess Monitor does 
not incorporate the Operations Monitor reset instruc- 
tion. ITC will only execute the reset if time-sharing 
is in progress. 



Error Alert Control (EAC) Dump 

The label DUMP1 gives the user the option of in- 
cluding the dump routine (dump core to disk) for 
subsequent user error analysis. The functions of 
EAC are explained in another section of this manual 
(see Functions of Executive Programs: The System 
Director). 



ALLOCATION OF INTERNAL AND EXTERNAL 
INTERRUPT LEVELS 

Interrupts can be generated by events which originate 
in the plant or the environment that is being con- 
trolled, or by conditions internal to the computer 
hardware itself. These may be classified as exter- 
nal (or process) interrupts and internal interrupts. 

Internal interrupts may be caused by an error 
condition being detected, an input /output operation 
being completed, an interval timer interrupt, a 
computer operator setting a switch, etc. 

External or process interrupts may be caused 
by the closing of an electrical contact, a rise in 
temperature above a set limit, etc. 

Since the number of internal and external inter- 
rupts required by a particular system is decided 
by the user, the System Director must be provided 
with a labelled assignment of each interrupt; used. 



Interrupt Levels 



A level of interrupt represents a degree of removal 
from the normal computer mode. The multi- 
interrupt feature of the IBM 1800 Data Acquisition 
and Control System is composed of a maximum of 
24 levels, each level containing 16 request positions, 
thus making available 384 interrupt lines to signal 
the computer to halt the program being executed and 
branch to unique hardware memory locations. 
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The number of interrupt levels (NULEV) planned 
by a user is assigned contiguously to the 24 available 
levels, starting from zero to 23 . If, for example, 
16 interrupt levels are elected by the user, levels 
0-15 are used. The numerical value to which the 
label NULEV is equated is always 1 plus the highest 
numbered interrupt level used. 

Priority assignments are necessary in order 
that an order of precedence (that is, a level) can 
be established among the several interrupt con- 
ditions. In configurating a multi-interrupt system, 
the user should remember that certain I/O devices 
such as the disk, magnetic tape, and timers re- 
quire high response capabilities. Other I/O devices 
such as the list printer, typewriter, and card-reader 
do not demand such a critical response. 

In general, process interrupts (PISW's) are 
assigned lower priority levels than data processing 
and process I/O devices, except for process inter- 
rupts that do not require I/O and demand immediate 
response or initiate extended operations at lower 
levels through the programmed interrupt feature. 
The reason process interrupts are assigned lower 
priorities than I/O devices is that user-written sub- 
routines for the servicing of these process interrupts 
can then utilize all I/O devices. I/O devices must 
receive an operations complete interrupt, which 
cannot occur if it is located on a lower priority 
level than the level from which the I/O device is 
called. Exceptions to this rule are the disk and the 
1053 Printer where the I/O routine is so written 
that it will remain within itself until the operation 
is complete. These exceptions were allowed due 
to EAC requirements, but should not, in general, be 
considered as acceptable practice. 

The amount of computer time required to service 
a particular interrupt can influence its priority 
assignment. If, for example, its servicing is rela- 
tively short, an interrupt may be accorded higher 
priority than one which entails more elaborate 
servicing procedures. 

Those basic I/O devices that demand fast response 
include the disk, magnetic tape, and timers. Be- 
cause the 1053 Printer uses the disk when it buffers 
messages, the analog interrupts should be at a higher 
level than the assignment of the 1053 Printers due to 
a possible loss of comparator interrupts. It should 
be pointed out that although fast response is not 
normally required by the 1053 Printer, this device 
should be assigned to a high enough interrupt level 



to allow it to run continuously at a maximum rate. 
Thus, typewriter messages will be serviced without 
overloading the message buffer. 

It is recommended that the Analog Input Com- 
parator feature be assigned to a higher priority 
level than the Analog Input. The remaining I/O 
devices do not possess any special characteristics 
for assignment at a high level, except that they 
must be at a level higher than the highest level 
from which they are called, and at a higher level 
than any assigned interrupt core load (see equate 
card ICLL1, Figure 66). 

Figure 68 (in conjunction with Figure 66) illus- 
trates how a multi -interrupt system configuration 
might look in the IBM 1800 Data Acquisition and 
Control System for a typical process control appli- 
cation. The example serves to convey some of the 
principles noted above: it should not be taken as a 
model. 

The machine configuration chosen for this 
example includes: 

1 IBM 1802 Processor - Controller 

16K words of core storage 

1 IBM 2310 Disk Storage Unit with three 
disk drives 

1 IBM 2401 Magnetic Tape Unit 

4 IBM 1053 Printer Units 

1 IBM 1443 Printer Unit 

1 IBM 1442 Card Read Punch Unit 

1 IBM 1627 Plotter Unit 

1 Analog Input Basic with Comparator 

1 Analog. Input Extended with Comparator 

1 Digital Input 

1 Digital and Analog Output 

12 Interrupt levels 



Other considerations are: 

57 Process Interrupts (spread over 12 levels) 

24 Count Servicing Subroutines 

12 Programmed Interrupts 

3 Timers 

Queue Table size = 50 

A group of process interrupts is assigned to 
each of 12 levels, 0-11. Note that process inter- 
rupts are normally factory wired to terminals in 
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INTERRUPT LEVEL STATUS WORD 



INTERRUPT 
LEVEL 








1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 





PISW 

1 


TIMERS 
A,B,C 






























1 


PISW 
2 


2310/ 
1 


2310/ 
2 


2310/ 
3 


























2 


PISW 
3 


2401 






























3 


PISW 
4 


AIBC 


AIEC 




























4 


PISW 
5 


AIB 


AIE 


Dl 


DAO 
























5 


PISW 
6 


1053/ 
1 


1053/ 
2 


1053/ 
3 


1053/ 
4 
























6 


PISW 
7 


1443 






























7 


PISW 
8 


1442 






























8 


PISW 
9 


C.I. 


1627 
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PISW 
10 
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PISW 
11 
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12 
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NOTE 
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erval Timers must be on a higher interrupt 
in the 2310, 1816/1053, 1442 and 1443 d 

e 1816/1053s must be on a lower interrupt 
jn the 2310s. 
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Figure 68* Example of Interrupt Level Status Word Assignment 
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groups of 4 to corresponding bit positions of one or 
more PISW's. In this example, only 1 process 
interrupt is utilized on each of the levels 0-8, and 
16 process interrupts on each of levels 9-11, giving 
a total of 57 process interrupts. 

The three timers A, B, and C are assigned to 
the highest interrupt level (level 0) in order to 
give them high response. They are thus placed to 
interrupt any event or device in progress. With the 
timers at this level, the timer servicing routines 
should not be calling any I/O device, but should 
make use of the programmed interrupt or queueing 
a mainline technique for servicing requirements. 
The reason for this is that it is not possible to call 
an I/O device from a level of higher priority than 
the I/O device being called (as already explained). 
In addition, it is not desirable to remain on the 
timer level for a period of time long enough to 
cause the system to miss a timed-out interval of 
higher priority than the one being processed. 

Disk drives are assigned the next highest level 
(level 1) in order that the sector-gap can be made; 
that is, the disks can then operate at their maximum 
speed without incurring the penalty of a full revolu- 
tion of disk time (40 ms.). The magnetic tape unit 
is placed at the next level (level 2) also for the same 
ability to service it at full capacity. 

The Analog Input Basic with Comparator (AIBC) 
and Analog Input Extended with Comparator (AIEC) 
are recommended to be assigned a higher level 
(level 3) than their corresponding Analog Input Basic 
(AIB) and Analog Input Extended (AIE) devices 
(level 4). They must always be assigned to a higher 
level than the 1053 Printers. 

The 1053 Printers are placed on level 5 because 
they are continually active, but do not require 
much execution time. Thus, assigning them above 
the process interrupts give these devices the ability 
to print while user's core loads are in execution. 

The remaining devices present no real demand 
problems, and are assigned to lower levels as shown 
in Figure 68. 



Summary of Interrupt Assignment Restrictions 

For proper operation of the TSX system, the follow- 
ing interrupt assignment restrictions must be 
observed: 

1. All I/O device interrupts must be assigned 

to a higher priority interrupt level than external 
interrupts, unless the external interrupt is 
serviced by a skeleton interrupt routine. 



2. If external interrupts and I/O devices are both 
assigned to the same level, the external inter- 
rupts must be serviced by skeleton interrupt 
routines. 

3. A skeleton interrupt routine cannot use an I/O 
device whose interrupt is assigned to the same 
or a lower priority level, except for the disk, 
1053 Printer, and 1443 Printer; however, the 
1053 test function cannot be used. 

4. ILSW bits must be assigned contiguously, be- 
ginning with position 0. 



Interrupts Per Level 

It has been noted that a level of interrupt repre- 
sents an order of precedence or priority, and that 
each level contains a total of 16 request positions. 

When one or more lines are connected to any one 
priority level, it is necessary by programming 
means to identify the specific condition which caused 
that interrupt level to request service. To do this, 
a 16 -bit word called the Interrupt Level Status Word 
(ILSW) is used. The programmer does not specify 
the ILSW in his instructions; this specification is 
fixed. That is, one ILSW is hardware assigned to 
each of 24 interrupt levels. Through the ILSW, 
the operational status or condition of an I/O device 
or process is revealed to the executive system. 

The choice of interrupting I/O devices and/or 
process conditions on a specific interrupt level is 
specified by the user on the NB00-23 equate cards. 
If, for example, one process interrupt and four I/O 
devices are assigned contiguously (starting from 
bit zero) to level 10, the user equates NB10 to 5. 
The NB label is always equated to a numerical value 
equal to the rightmost bit (on the ILSW) plus 1 for 
a level. If no devices or process interrupts are 
assigned to a level, the label is equated to zero. 
Note that the NB00-23 equate cards must reflect 
exactly the number of bits on the System Loader 
assignment cards. Also, those levels that use 
programmed interrupts only do not contain ILSW 
bits; the NB cards for these levels are, therefore, 
equated to zero. 



Level Work Areas 

Whenever an interrupt caused by an I/O, a process 
interrupt, or a programmed interrupt occurs, an 
indirect branch takes place to a fixed word in core. 
This word contains the address of a communications 
area known as a Level Work Area. There is one 
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work area per level of interrupt specified by the 
user, and only those levels configurated by the user 
will be assembled and will be available when the 
System Skeleton is built. In addition, three addition- 
al work areas are always assigned to the system: 
one each for Nonprocess Core Loads (if time-sharing 
is used), Mainline (that is, Process) Core Loads, 
and Errors (Trace and C.I. Interrupt). If time- 
sharing is not used, the Nonprocess work area is 
origined out at System Director assembly time. 

Briefly, the level work area serves as a means 
of communications whenever the computer transfers 
control from one level of interrupt to another. The 
address of the interrupted level is then saved and 
the address of the work area for the current level 
set up. When the level in progress has completed 
its processing, the address of the interrupted level 
is restored. This method of coding automatically 
saves all reentrant coded subroutine work 
areas. 

Figure 69 illustrates the layout of a level work 
area which is 104 words in length, but this may be 
increased or decreased by the user (at System 
Director assembly time), depending on the functions 
related to each level of interrupt. Note that for 
proper testing of errors and time- sharing, the MIC 
work area portion should not be deleted. 



Work levels are divided into two major sections: 
a fixed section and an overlay section. Each word 
in the fixed section is assigned to one specific pro- 
gram and may be core protected. The manner in 
which it is assigned is shown in Table 11. 

Words in the overlay section may be assigned 
to several different programs providing these pro- 
grams do not call one another. This section cannot 
be core protected. 

The overlay section begins with the 58th word of 
a level work area (see Table 12). If this section is 
used, the user is advised to reference this "start" 
position with a label, thus eliminating extensive 
program modification in the event the fixed section 
has increased or decreased. If a modification is 
required, the first word of the overlay section (the 
58th word) will always be an even core location to 
facilitate double load and store instructions, etc. 
Also, programs using the overlay section should 
always commence at the beginning, except those 
programs that are called by a program already 
using this area. For example, DP I/O programs 
use the first 25 words of the overlay section; there- 
fore any program that requires storage locations in 
this section and also calls a DP I/O routine cannot 
use the first 25 words. The later program will thus 
start at the 26th or 27th word of the section. 



MIC WORK AREA 



,o4//# 



SUBROUTINE WORK AREA 



-4 



40 



FIXED SECTION 



57 



99 



OVERLAY SECTION 



-J 



Figure 69» Layout of a J^evel Work Axe a 
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Table 1 1. Fixed Section of a Level Work Area 



WORD 


PROTECTION 




WORD 


PROTECTION 




POSITION 


STATUS 


CONTENTS 


POSITION 


STATUS 


CONTENTS 


-4 


N 


Save interrupt exit 


27 


N 


Save location for the address of the work level 
in use at the time the interrupt occurred; i.e., 


-3 


N 


Not used 






word 68 ,, of the Fixed Area in core. 


-2 


N 


Busy indicator address for UFIO: indicates 
that unformatted I/O buffer has been saved 


28 


N 


Save location for the A-register. 






to disk and mustbe restored by MIC. 


29 


N 


Save location for the Q-register 


-1 


N 


UFIO restore indicator; non-zero if a 


30 


N 


Save location for WK4, word 36, , of the Fixed 
Area in core . 






restore is needed . 









Y 


Address of word 5 of the ICLT entry for this 


31 


N 


Save location for WK5, word 37, , of the Fixed 
Area in core . 






level. 






1 


Y 


Address of word 1 (in-core-with-skeleton 
indicator word) of the ICLT entry for this 


32 


N 


CARDN indicator. If zero, detection of a // 
card causes an error. 






level . 


33 


N 


Save location for MDFIO sector address on a 


2 


Y 


Address of word 2 (in-core-with-mainline 
indicator word) of the ICLT entry for this 






save operation 






level. 


34 


N 


Busy indicator address for MDFIO 


3 


Y 


Address of word 3 (record indicator word) of 
the ICLT entry for this level . 


35 


N 


File protect indicator; this must be set non-zero 
prior to every write to a file-protected area. 


4 


Y 


Address of word 4 (recorded indicator word) 
of the ICLT entry for this level . 


36 


N 


First word of ICLT (in-core skeleton address) 








37 


N 


Second word of ICLT (in-core mainline address) 


5 


Y 


Address of word of this level work area 














38 


N 


Third word of ICLT (RECORD address) 


6 


N 


Status save location 














39 


N 


Fourth word of ICLT (RECORDED address) 


7 


Y 


Level number 














40 


N 


Fifth word of ICLT (first entry). 


8 


N 


Entry point to interrupt level coding 






Words 36-40 constitute the work area used by 
MIC. This area is loaded with addresses from th« 


9 


Y 


STX sets this level busy 






ICLT entry for this level to inform the ALLGO 
routine how to handle the interrupt and/or where 


10 


Y 


STX saves XR3 






to find the servicing routine or core load. 


11 


Y 




Sets XR3 to work level 


41-43 


N 


Save locations for FORTRAN FAC (floating 
accumulator) 


12 


Y 


















44-49 


N 


Locations used by QZSAV/QZEXT to save and 


13 


Y 


Saves XR2 






restore: 

A-register 


14 


Y 


Saves XR1 






Q-register 
XR1 


15 


Y 




BSC long to MIC 






XR2 

Carry and Overflow indicators 


16 


Y 










XR3 


17 


Y 




BSC long indirect to interrupt via the 
Master Branch Table. 


50-54 


N 


Locations used by TVSAV/TVEXT to save and 
restore : 

A-register 


18 


Y 










Q-register 












XR1 


19 


N 


MFIO restore indicator; non-zero if a 
restore is needed 






XR2 

Carry and Overflow indicators 


20 


N 


Busy indicator address for MFIO; also first 
word of PISW IOCC. 


55 


N 


FORTRAN functional error indicator 








56 


N 


FORTRAN divide check indicator 


21 


N 


Second word of PISW IOCC. This is a 












standard PISW set-up by TSX for this level. 


57 


N 


FORTRAN overflow indicator 






If the user wishes to sense a PISW other than 












the standard for this level, Word 21 would 












have to be modified by him. See SYSTEM 












DESIGN CONSIDERATIONS, SYSTEM 












DIRECTOR: PISW Assignment Restrictions. 








22 


N 


Save location for XR1 








23 


N 


Save location for XR2 








24 


N 


Save location for XR3 








25 


N 


Level busy indicator. Positive, if the level 
is busy; zero if not. 








26 


N 


Save location for PISW sense 
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Table 12. TSX Reentrant Subroutine Work Level Requirements 



MASKED 






FIXED 


OVERLAY 




A-REG. 




' 1 








1 1 






W 1 








FADD, FADDX, FSBR, FSBRX, FSUB, FSUBX 




X 






X 


41-43, 52 


58, 59, 64-66 




FALOG, FIN 






X 




X 


41-43, 55 


68, 69, 72 




FATAN, FATN 






X 




X 


41-43 


68, 69, 70-71, 72-73, 


74 


FAVL, FABS 






X 






41-43 






FAXB, FAXBX 






X 






41-43, 46, 48, 49, 55 


73-79 




FAXI, FAXIX 




X 








42, 52, 55 


67, 70-72 




FDIV, FDIVX, FDVR, FDVRX 




X 








41-43, 52, 56 


58, 59, 64-66 




FEXP, FXPN 






X 






41-43 


60-63 




FLD, FLDX, FSTO, FSTOX 




X 








41-43, 52 


58, 89, 90 




FMPY, FMPYX 




X 








41-44, 52 


58, 59, 64, 65 




FSIN, FSINE, FCOS, FCOSN 






X 




X 


41-43, 55 


68, 69 




FSQRT, FSQR 






X 






41-43, 57 


72 




FTANH, FTNH 






X 






41-43, 46, 48, 49 


68-73 




FTRTN, FTNTR 










X 




80-84 




















EADD, EADDX, ESBR, ESBRX, ESUB, ESUBX 




X 






X 


41-43, 52 


58, 65-67 




EALOG, ELN 






X 




X 








EATAN, EATN 






X 




X 








EAVL, EABS 






X 












EAXB, EAXBX 






X 












EAXI, EAXIX 




X 








42, 52, 55 


69, 72, 96, 97, 99 




EDIV, EDIVX, EDVR, EDVRX 




X 








41-43, 52, 56 


76-80, 85 




EEXP, EXPN 






X 




X 


41-43 






ELD, ELDX, ESTO, ESTOX 




X 






X 


41-43 


83-84 




EMPY, EMPYX 




X 








41-43, 52 


64-66 




ESIN, ESINE, ECOS, ECOSN 






X 




X 


NONE 






ESQRT, ESQR 






X 






NONE 






ETANH, ETNH 






X 






NONE 






ETRTN, ETNTR 










X 


52 


92-97 




















ADRCK 










X 


7 






COMGG, COMGI 










X 




59-63 




DATSW 










X 


NONE 






DVCHK 






X 






56 






ESIGM (EXTENDED PRECISION) 








X 




41-43 


70-75 




FSIGN (STANDARD PRECISION) 










X 


41-43 


70-75 




FCTST 






X 






55 






IOU 










X 




59-63, 




ISIGN 










X 


NONE 






ISTOX 




X 








50, 52 






LDFAC, STFAC, SBFAC, DVFAC 










X 


42 






MDFIO, MDAF, MDAI, MDCOM, MDF, MDFX, 
MDl, MDIX, MDRED, MDWRT 












41-43 


70-92 




MDFND 










X 




72-75, 77 




MFIO,, MRED, MWRT, MCOMP, MIOAF, 
MIOIX, MIOAI, MIOI, MIOFX, MIOF 












19-20, 41-43, 55 






MGOTO, MFIF, Ml IF, ME IF 








X 


X 




70-72, 74-78 




MIAR, MIARX, MFAR, MFARX, MEAR, MEARX 










X 




70, 71 , 74-85, 89 




OVERF 






X 






57 






PAUSE 




X 








NONE 






SAVE, IOFIX 










X 


-1, 7, 11, 19, 33, 34 


70-73, 88, 93, 97 




SLITE, SLITT 






X 






NONE 






SSWTC 










X 


NONE 






STOP 








X 




NONE 
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Table 12. TSX Reentrant Subroutine Work Level Requirements 



MASKED 








FIXED 


OVERLAY 










1 1 










f 1 




91 IRROI ITINF9 MOT RFFMTPAKIT 




V 1 




JUDI\UU[ IINlj IN^I 1\CCIN 1 ixMIN 1 


* 




SUBIN 










X 




58-83 




SUBSC 










X 


NONE 






TSTOP 










X 


NONE 






TSTRT 










X 


NONE 






TTEST, TSET 








X 




NONE 






UFIO, UFIOX, UIOIX, UCOMP, UIOI, 
UIOF, UIOAI, UIOAF 










X 


-1, -2, 55 






TRACE (TRPNT) 












NONE 






















FARC 










X 


41-43, 57 






FBTD, FDTB 






X 






41-43 


58-89 




FLOAT 




X 








41-43, 50, 52, 53 


59-62 




FIXI, FIXIX 




X 






X 


50-52, 55 






IABS 










X 


NONE 






IAND 












NONE 






IEOR 












NONE 






IFIX 




X 






X 


41, 42, 50, 55 






















IOR 












NONE 






LD 












NONE 






NORM 




X 








41-43 


58 




SNR 










X 


42, 43 






XDD 




X 








42, 43, 50-54 


66-75 




XMD 




X 








42, 43, 50, 51 


58-65 




XMDS 










x. 


42-44 


58-59 




XSQR 






X 






44, 48 


58, 59 




















DMPHX, DMP, DMPDC 


X 










NONE 






DMPS, DMPST 


X 










41-43 






DPART 


X 










7 






ENDTS 








X 




NONE 






LEVEL 










X 


NONE 






MASK 










X 


NONE 






OPMON 












NONE 






QIFON 






X 




X 


44-49 


66, 67, 69-75, 77-84, 


86-94 


QUEUE 






X 




X 




58, 61-63, 65-67 




RESMK 










X 


NONE 






SAVMK 










X 


NONE 






SETCL 








X 




NONE 






TIMER 










X 


NONE 






UNMK 










X 


NONE 






UNQ 






X 




X ' 




58, 61-63, 66, 67 




VIAQ 


X 








X 


NONE 






COUNT 










X 


NONE 






CLOCK 








X 




NONE 






CLEAR 






X 




X 




58, 61-67 




CONHX 


X 










NONE 






TRPRT 


X 










NONE 






FLIP 


X 










7 







(Continued) 
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Table 12. TSX Reentrant Subroutine Work Level Requirements 



MASKED 










FIXED 


OVERLAY 




A-REG . 
























TVSAV 

CI IDD/^I ITIKICC K\r\T DCCNJTDAMT ____■ 




1 




iUBKUU 1 IINtb NUI KttlNIKAINI 


+ 


♦ V V i 




CARDN 




X 






X 


32 






PAPTN 




X 








50-54 






MAGT 




X 








NONE 






PLOTX 




X 






X 




65 




REWIND/BCKSP/EOF 








X 




-2 


66-68, 71-73, 75, 79, 85, 89 


DAOP 




X 






X 




70-75 




AIPTN, AIPN 




X 






X 




70, 71 




AISQN, AISN 




X 






X 




70-72, 74 




AIRN 




X 






X 




76-78 




DIEXP 




X 






X 




70-73 




DICMP 












IS REENTRANT 






DINP 




X 






X 


50 


70-72, 74, 75 




ANINT, COMP1, AINT1, COMP2, AINT2 


X 










NONE 






AIP 






X 








58, 61-66 




AIS 






X 








58, 61-71 




AIR 






X 








58, 61-69 




CO, DO, PO, DAC 






X 








58, 61-65 




CS, VX, PI, Dl 






X 








58, 61-65 




CSC, VSC, PIC, DIC 












IS REENTRANT 






CSX, VSX, PIX, DIX 






X 








58, 62-65 




IOPE, OUSLY, ETS 










X 


7 






XSAVE, XEXIT, XLOAD 










X 


7 






GAGED, UNGAG 










X 


54 






QZERQ 


X 










NONE 






QZ010 


X 












58-66 




BT1BT 


X 








X 


NONE 






BT2BT 


X 










NONE 






















BINDC 




X 








50 


61, 62 




DCBIN 




X 








50, 55 


61 




BINHX 




X 








50 


61 




HXBIN 




X 








50, 55 


61 




HOLEB 




X 








55 


61-65 




HOLPR 




X 








55 


61-66 




EBPRT 




X 








55 


61-66 




PAPEB 




X 








55 


58-67 




PAPHL 




X 








55 


58-66 




PAPPR 




X 








55 


58-66 




EBPA 


X 










NONE 






PRT 


X 










NONE 






















FCHAR: 


X 










NONE 






SCALF 


X 










NONE 






FGRID 


X 










NONE 






FPLOT 


X 








NONE 






ECHAR 


X 








NONE 






SCALE 






1 


X 


NONE 






EGRID 


X 








NONE 






EPLOT 


X 










NONE 






POINT 










X 


NONE 






FCHRX, FCHRI, WCHRI 


X 










NONE 






FRULE, FMOVE, FINC 


X 










NONE 






ECHRX, ECHRI, VCHRI 


X 






_______ 




NONE 







(Continued) 
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MASKED 








FIXED 












r i 












' 1 




SUBROUTINES 






V i 


OVERLAY 




i 


ERULE, EMOVE, EINC 




X 










NONE 




XYPLT 




X 










NONE 




PLOTI, PLOTS 




X 










NONE 




















SKELETON I/O 


















DISKN 








X 


X 




35 


58-69 


PRNTN 






X 










70-80 


TYPEN/WRTYN 






X 










70-80 



Table 12 illustrates the work level requirements 
of TSX reentrant subroutines. These may depend 
on various modification levels of the TSX system. 
If absolute information is required, the current 
listings should be referred to. 

The five status columns (NOT REENTRANT, 
TVSAV, QZSAV, A-REG, and.MASKED) indicate 
whether each subroutine is reentrant, and if it is, 
what modes of reentry are used. For example, FADD 
(Floating-point ADD) is reentrant since the first 
column is blank; it uses TVSAV, but note that it 
also masks all levels at one or more points within 
the subroutine. 

Some subroutines are reentrant, but do not use 
any words in the level work area. ENDTS is such 
an example. VIAQ is not reentrant; it does, how- 
ever, mask all levels to prevent the Queue Table 
from being modified by QUEUE, QIFON, and UNQ 
during several instructions. 

Level work areas are defined by the USE labels 
USE 00-23), the number of work areas being deter- 
mined by NULEV. If a USE label is equated to 1, 
a work level is included on that level; if zero, no 
work level is included. For example, if NULEV 
= 7, USE 00-06 are all equated to 1; the remaining 
USE cards being equated to zero. 

See also: Programming Subroutines Using 
Reentrant Coding. 



Process Interrupts Per Level 



Like the ILSW, the Process Interrupt Status Word 
(PISW) is a 16-bit word associated with the use of 
process interrupts. Process interrupts are phys- 
ically terminated on 16-position terminal blocks 
within the 1800 system. The PISW indicators are 
turned on or off by contact closures or voltage 
shifts in the process. A total of 24 PISWs are 
allowed in the system for normal usage. To provide 
the maximum number of interrupt levels for process 



(Concluded) 

interrupts, one PISW could be assigned to each 
ILSW. For multiple groups per level, see PISW 
Assignment Restrictions. 

The System Director must also be aware of the 
number of process interrupt bits on each of the 24 
hardware levels. This information is provided by 
the user on the NIL00-23 equate cards. If, for 
example, one process interrupt is assigned to inter- 
rupt level 10, the bit configuration for the PISW 
for that level could be bits to 15. For example, 
if bits to 7 are assigned, the NIL10 label will be 
equated to 8. The NIL label will always be equated 
to a numerical value equal to the rightmost PISW 
process bit position used plus one. If no process 
interrupts are assigned to a level, the label will be 
equated to zero. 

With this information, an interrupt core load table 
(ICLT) is built which contains an entry for each 
interrupt level assigned by the user plus two entries 
for programmed interrupts and two entries for 
count routines. The user specifies how many 
process interrupts he has on a particular level and 
only those words that are necessary to contain his 
configuration are entered in the table. 

Figure 70 illustrates a partial ICL table, for 
one level, say level seven. 

IN SKELETON represents the PISW bits of the 
PISW associated with the level this entry serves. If 
a subroutine is loaded as part of the skeleton to serve 
a process interrupt, a bit is set up in this word which 
corresponds to the bit on the PISW. For example, if 
the user has a process interrupt on level 0, and this 
PISW is wired such that when the interrupt occurs 
the zero bit comes on, a bit is put into the correspond- 
ing zero bit of the IN SKELETON word of the level 
zero ICLT entry. 

The start address of the servicing routine is then 
loaded into START ADDRESS. 

IN MAINLINE CORE LOAD and RECORD are set 
up each time a mainline core load is read into core. 
The former word specifies that the interrupt servicing 
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FOR 
BITO 



FOR 
BIT 15 



IN SKELETON 



IN MAINLINE CORE LOAD 



RECORD 



RECORDED 



START ADDRESS/WORD COUNT 



SECTOR ADDRESS 



START ADDRESS/WORD COUNT 



SECTOR ADDRESS 



Figure 70. Interrupt Core Load Table 



PISW Assignment Restrictions 

PISW (Process Interrupt Status Word) groups can be 
assigned to interrupt levels either as a single group 
per level or in multiple groups per level. For 
proper operation of the TSX system, the following 
rules and restrictions must be observed. 



One Group Per Level 

Normal usage of process interrupts requires that 
only one group of process interrupts be assigned to 
each interrupt level. Process interrupts assigned 
in this way can each be serviced with separate inter- 
rupt routines. The servicing routines must reside 
in the skeleton area only if their associated inter- 
rupt level is equal to or higher than any I/O device 
interrupt level. 

When only one PISW is connected to a level, the 
correlation of the interrupt level number to the 
PISW group number is as follows: 



routine is in with the core load. RECORD means 
that the interrupt is not to be serviced, but only 
an indication that it has occurred is to be set. 

RECORDED is used whenever an interrupt has 
been specified to be recorded during the processing; 
of core loads. In such an event, if the interrupt 
occurs, the corresponding bit is set on by MIC and 
the interrupt turned off. These indicators are reset 
by the CALL QIFON and CALL CLEAR subroutines 
when called by the user. 

The first four words of the ICL table are fixed, 
two additional words being required for each bit of 
the PISW used (see Figure 70). ICL table size is 
dictated by the NIL equate cards. In the example 
given (see Figure 66), 57 process interrupts were 
used; this required 258 words. If the maximum 
possible number of process interrupts (384) were 
utilized, 768 plus 4 (multiplied by the number of 
levels used) words of storage would be required. 

If the interrupt routine were not in the skeleton, 
START ADDRESS would contain the word count of 
the routine on disk to service the interrupt. SEC- 
TOR ADDRESS would then contain the sector address 
of this out -of -core interrupt core load. 

It should be noted that a programmed interrupt 
does not make use of a PISW bit for operational 
indication. The indicator which specifies that a 
programmed interrupt has occurred is set-up by 
the user's routine in core when he does a Call 
Level (see Programmed Interrupts) . 



Interrupt 


PISW 


Second Word of IOCC 


Level 


Group 


for PISW Sensing 





1 


/5F02 


1 


2 


/5F03 


2 


3 


/5F04 


3 


4 


/5F05 


• 


• 


• 


• 


• 


• 


• 


• 


• 


22 


23 


/5F18 


23 


24 


/5F19 



Note that MIC performs the ILSW and PISW 
sensing, and transfers control to the proper inter- 
rupt servicing routine. 

Multiple Groups Per Level 

In special cases, such as (1) when fast response is 
desired, and (2) when each bit does not require a 
unique program to service it (such as when all the 
on-bits in a group might represent a particular code) , 
it is desirable to have more than one PISW group 
assigned to an interrupt level; however, the follow- 
ing restrictions must be observed by the user's rou- 
tine. The interrupt servicing (ISS) subroutine must: 

1. Reside within the skeleton area 

2. Sense all PISWs assigned to the level 
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3. Upon completion, exit to MIC via the I/O 
exit (that is, BSI I 90). 

When assigned in this way, there is no correla- 
tion restriction between the interrupt level number 
and the PISW group number. 



Combination PISW Assignments 

It is also possible to combine the two assignment 
methods and have some interrupt levels with only 
one PISW each, and other levels with more than one 
PISW. The same rules and restrictions for each 
type outlined above still apply. For example, to 
have two groups of four PISWs each assigned to 
interrupt levels 4 and 5, one valid combination is: 



Interrupt 


PISW 


Second Word of IOCC 


Level 


Group 


for PISW Sensing 





1 


/5F02 


1 


2 


/5F03 


2 


3 


/5F04 


3 


4 


/5F05 


4 


One or more 
groups of PISWs 


User-Sensed 


5 


One or more 
groups of PISWs 


User-Sensed 


6 


7 


/5F08 


7 


8 


/5F09 


• 


• 


• 


• 


• 


• 


• 


• 


• 


17 


18 


/5F13 


18 






19 


Not assignable; 




• 


usage assumed on 


• 


levels 4 and 5 




• 
23 







Any combination can be used for the PISW assign- 
ments on levels 4 and 5. 

Note that the user is not restricted in assigning 
multiple PISWs only to those levels which are not 
sensed by MIC: they can be assigned to any level. 
For example, if level 7 has the standard sense for 
a group of assigned PISWs, the user could include 
on that level another group of PISWs which he de- 
sires to sense himself. User-written interrupt ser- 
vicing routines must be coded as an I/O ISS sub- 
routine. 



For further information on the assignment of 
process interrupts whose IOCCs are to be sensed 
by user-written subroutines, refer to the following: 
System Design Considerations: The IBM Nonpr ocess 
System; Programming Techniques - Writing As sem- 
bler Language Subroutines; IBM 1800 Assemble r 
Language, (Form C26-5882). 

Programmed Interrupts 

CALL LEVEL — Programmed Interrupt 

External interrupt levels can also be programmed. 
Programmed interrupts are initiated by the CALL 
LEVEL statement, and follow the same basic rules 
which pertain to process interrupts. The format 
of this statement is as follows: 



CALL LEVEL (L) 



where 



L is an integer constant 0-23 that specifies 
the interrupt level desired 

There can only be one programmed interrupt 
routine per assignable interrupt level. The use of 
the servicing routine may, however, be expanded 
by setting a numeric value (integer) in Inskel COM- 
MON prior to a CALL LEVEL (L). The LEVEL 
subroutine can then interrogate this value introduced 
by the calling program. In this way, as many sub- 
routines per level as are desired can be provided. 
CALL LEVEL, which can be used only in process 
mainlines or interrupt programs, causes a pseudo 
ILSW bit to be set in the programmed interrupt 
IOCC (locations 160iq and 162io) in the Fixed Area. 
The IOCC bits are interrogated by MIC when an 
interrupt occurs on a specific level. MIC always 
reactivates those levels that have been specified 
within the CALL statement, and which have not been 
serviced. 

The programmed interrupt is recognized immedi- 
ately when called from a lower level. When the 
servicing routine finally exits to MIC, program 
operation at the calling level is resumed with the 
statement following the CALL LEVEL statement. 

A programmed interrupt called from a higher 
level is recognized after the calling program is 
completed, and after any intervening interrupts are 
serviced. If a level is called and any ILSW bit is 
on when this level is recognized, the programmed 
interrupt is recognized after the first ILSW "on" 
bit is serviced. 
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The equate card NLSW1 is used to specify the 
lowest priority level number (within the group 0-13) 
plus 1 assigned to a programmed interrupt. Simi- 
larly, NLSW2 applies to the group 14-23. This 
determines the number of programmed interrupts 
available to the user. 

In the example given in Figure 66, the number 12 
punched in columns 35-36 means that programmed 
interrupt space in the ICL table has been allocated 
for levels 0-11 (12 levels). NLSW2 is equated to 0. 

Consider a further example. Ten (10) program- 
med interrupts are required on levels 14-23; none 
on levels 0-13. NLSW1 is equated to and NLSW2 
is equated to 10. 

Note that there can only be one programmed 
interrupt routine per interrupt level. The user need 
not initially have programs on disk corresponding 
to all levels of programmed interrupt stated. These 
may be loaded later. 



In the first example, assume 

NULEV = 12 

Three interrupt core load interrupt 

levels are required (9, 10, and 11). 

The equated representation is shown below: 



HEX EQUIV 

INT LEVEL 
ICLL1 



HEX EQUIV 

INT LEVEL 
ICLL2 




12 3 



4 5 6 7 


7 
8 9 10 11 


F 
12 13 


lo |o |o |o 


o |o |o |o 


Oh |lh 


ihhlll 











F F F 

14 15 16 17 18 19 20 21 22 23 



in 



iiii 



inn 



iiii 



Out-of-Core Interrupt Levels 

The user has also to determine those levels on which 
interrupts will be serviced by out-of-core interrupt 
core loads. Other interrupts on levels that are 
serviced by out-of-core interrupt core loads are 
masked so that they cannot interrupt another inter- 
rupt being serviced by a corresponding out-of-core 
routine. Interrupts serviced by in-core routines 
are not masked. Only one level of exchange is 
maintained. 

Interrupts that are in the skeleton should not be 
on the same or lower level as out-of-core inter- 
rupts, unless those interrupts can be masked for 
the period of time required to service the out-of- 
core interrupts. 

The best practice for servicing interrupts is to 
group those interrupts that are serviced by in- 
skeleton routines on higher priority levels than 
interrupts which are serviced by interrupt core 
loads. This is not, however, a restriction on the 
system: in-skeleton routines may be intermixed 
with interrupt core loads as long as the skeleton 
routines can be masked for the period of time re- 
quired to service the interrupt core loads. 

The user specifies those interrupt levels he has 
elected to be masked for the servicing of interrupt 
core loads on two equate cards: ICLL1, ICLL2. 
He may elect a single interrupt level or consecu- 
tively numbered interrupt levels within the two 
groups of interrupt levels, 0-13 and 14-23. Two 
examples illustrate how the ICLL1-2 cards are used. 



Note that this corresponds to the machine con- 
figuration given in Figure 66. 
In the second example, assume 

NULEV = 24 

Interrupt core load interrupt levels 

7, 8, 9 and 19, 20 are required. 

The example assumes that levels 10-18, 21-23 
contain in-skeleton routines whose servicing can be 
delayed until the interrupt core loads have been 
serviced. Furthermore, if interrupt core loads on 
levels 7-9 are infrequently used, the normal servic- 
ing of in-skeleton interrupts (levels 10-18) would 
not be inhibited during the servicing of interrupt 
core loads on levels 19, 20. 

As shown below, to obtain this, ICLL1 is equated 
to /01C3; ICLL2 to /063F. 
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NUMBER OF CALL COUNT SUBROUTINES 
REQUIRED BY USER 

Call Count subroutines are user-written servicing 
routines which are assigned by *INCLD control cards 
to be included in the skeleton area when the skeleton 
is initially built. Their function is to service TSX 
CALL COUNT statements. 

Examples of the use of count routines are: 

1. Scanning variables at periodic intervals 

2. Initiating control adjustments at appropriate 
times 

3. Constructing a log 

Count servicing may also be achieved by not in- 
cluding a subroutine. In such cases, the event is 
only recorded during the normal processing of core 
loads, and later serviced by a CALL QIFON or 
CALL CLEAR statement in the mainline program. 

In practice, count subroutines should have short 
execution times and are normally only used to set 
an indicator, such as the setting of a programmed 
interrupt to some lower priority level, or queueing a 
mainline core load. For example, if a count rou- 
tine is used to run a scan, the scan should be run 
from a lower priority level. This means that the 
count subroutine then sets a programmed interrupt: 
the scan routine itself could be in the skeleton, in the 
mainline or on the disk since programmed interrupts 
have the same capabilities as process interrupts. 
If a log is required, the log core load should be 
queued from the count subroutine. This means that 
the count subroutine calls QUEUE specifying a main- 
line core load. The log core load would then be exe- 
cuted in sequence according to the priority assigned 
to it. If time -sharing is used, a CALL ENDTS 
statement should be included within the count routine 
immediately following the CALL QUEUE. 

The number of count routines planned by the user 
is punched in the NITP1 and NITP2 System Director 
equate cards. For example, if the user elects to 
use a total of 12 (Skeleton-included and recorded) 
count routines in his system, NITP1 and NITP2 are 
equated to 12 and 00, respectively. See also example 
in Figure 66. 

During System Director assembly time, an allo- 
cation of two words per entry is set up in the Inter- 
rupt Core Load Table for the start address of each 
count routine, as illustrated in Figure 70. 

If a count routine is included in the skeleton area, 
the Skeleton Builder, at skeleton build time, places 
its start address in the ICL table. On the other hand, 



if a routine is not included in the skeleton area, 
the numbered count only will be recorded during 
the normal processing of core loads. That is, a 
corresponding bit is "set on" by ITC in the ICL 
table and the servicing timer for that event is 
turned off. This means that the user may want to 
"wait" on one of the count indicators to "come on" 
(recorded) prior to servicing an event. This indi- 
cator is later reset by the CALL QIFON or CALL 
CLEAR statement when requested by the user. 

The size of the ICL table is determined at 
assembly time from data given in the equate cards. 
Its entries are inserted by the Skeleton Builder and 
DUP. A maximum of 32 count routines is allowed. 



DISK SYSTEM CONFIGURATION 



Magnetic tape oriented systems are of value when 
applied to pure data acquisition tasks where very 
large storage requirements exist. It has been 
found, however, where control is involved, that 
core storage must be supplemented by a rotating 
memory such as a disk file to operate an efficient 
monitor program. The data transfer rate of 32K 
words to and from each disk, the shorter seek time 
and higher reliability of a disk file make it ideally 
suited for process control and data acquisition 
purposes. 

In the IBM 1800 Time-Sharing Executive System, 
the software design concept is based on the use of 
a key unit — a single, high-capacity disk storage 
unit (the IBM 2310 Disk Storage Unit) as a program- 
ming systems residence device. 

Conceptually, the disk is treated in much the 
fashion as a reel of magnetic tape, and organized 
in a sequential manner. Any one segment of the 
disk is quickly available by moving the access 
mechanism directly to the starting point of a block 
of information, and serially transferring data. This 
approach also permits the user to easily store and/ 
or retrieve blocks of data such as core loads, pro- 
grams, matrices, and tables. The ability to read 
and write data on the same device allows the user 
to modify resident programs without the necessity 
of a second storage unit, such as in magnetic tape 
systems. 

The disk cartridge is designed to permit rapid 
interchange of disks under conditions which afford 
adequate protection of recording surfaces. The 
cartridge design also ensures precision control of 
disk rotation at high speeds past the recording heads. 
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Up to three disk drives are available with the 
1800 system. Typical disk uses include the fol- 
lowing: 

1. The disk file is well suited for the storage of 
executive programs, subroutine libraries, 
diagnostic routines, etc. , as well as the imple- 
mentation of the 1800 FORTRAN language. 

2. As a storage device for recording raw data, 
the disk file is extremely inexpensive, and 
obviates the need for the more costly magnetic 
tape drives. 

3. As a device for storing edited or corrected data, 
the removable disks can be transferred for 
permanent storage or for use on another 1800 
machine for off-line computations. 

4. It can be included to allow additional working 
storage for customer programs, or it can be 
used as a "spare file" for greater reliability 
and maintenance flexibility. 

Furthermore, the disk cartridge allows each user 
at a system installation to "customize" standard 
programming packages, and to include his own sub- 
routines and programs according to his particular 
needs. Tailoring resident -device characteristics 
to match the performance of the processor-controller 
makes it possible to balance the system for optimum 
performance. 



DISK ORGANIZATION 

The 2315 Disk Cartridge is organized into 200 cyl- 
inders (plus three spare cylinders) of two tracks 
each: one track per disk surface. For ease of 
block handling, each track is further divided into 
four sectors, each sector having a fixed length of 
320 sixteen-bit words. The sector is defined as 
the basic addressable unit of disk storage for reading 
and writing. 

Information is written on or read from the disk 
by a pair of magnetic read/write heads , one head for 
each surface of the disk. The three spare cylinders 
ensure that the stated capacities are maintained for 
the life of the cartridge. 

Figure 71 illustrates the relationships between 
bits, data words, disk blocks, sectors, tracks, and 
cylinders for a disk storage unit. 
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*These follow the first actual word of each sector, which is used for the addres*. 



Figure 71. Disk Storage Unit Conversion Factors 



Sector Numbering and File Protection 

In the interest of providing disk features permitting 
versatile and orderly control of disk operations, 
two important conventions have been adopted which 
govern sector-numbering and file protection. Suc- 
cessful use of the disk subroutine, DISKN : , can be 
expected only if user programs are built within the 
framework of these conventions. 

The primary concern of the conventions is the 
safety of data recorded on the disk. To this end, 
the file protection scheme plays a major role, 
but only in a manner that is dependent upon the 
sector -numbering technique. The latter contributes 
to data safety by allowing the disk subroutine to 
verify the correct positioning of the access arm 
before it actually performs a write operation. This 
verification requires that sector identification be 
pre-recorded on each sector, and that subsequent 
writing to the disk be accomplished in a manner that 
preserves the existing identification. DISKN has 
been written to comply with these requirements. 



Sector Numbering 

Each disk sector is assigned a logical address 

from 0, 1, 1599 corresponding to the 

sector's position in ascending sequence of cylin- 
der and sector numbers from cylinder zero (outer- 
most), sector zero through cylinder 199 (Inner- 
most), sector 7. Since the disk cartridge is 
divided into 1600 sectors, DISKN can now address 
any one of these sectors. 
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This sector address is recorded by a standard 
TASK utility program (TDWA) in the sector's first 
word, and occupies the rightmost eleven bit posi- 
tions. Of these eleven positions, the three low- 
order positions serve to identify the sector (0-7) 
within each cylinder. Utilization of this first word 
for identification purposes diminishes the per sector 
availability of data words to 320; transmission of 
full sectors of data is therefore performed in units 
of this amount. 



File Protection 

File protection is provided to guard against the 
inadvertent destruction of previously recorded data. 
This control can be achieved by having the normal 
writing functions uniformly test the file-protected 
status of cylinders they are about to write. 

File protection is implemented in the TSX system 
by defining any cylinder as being file protected or 
not file protected. The DUP *DWRAD function is 
used to designate file protection. If a cylinder is 
file -protected, the sector address on that cylinder 
will contain a one-bit in bit position zero of the 
sector address word. 



Disk Layout 

The two hundred cylinders of a disk cartridge for 
a single disk-drive TSX system are divided into 
two major logical sections for system operation: 
a nonprocess portion and a process portion as shown 
in Figure 72. The nonprocess portion, known as 
the IBM Systems Area, is used to store the integral 
component parts of the IBM Nonprocess System as 
discussed under System Design Considerations: The 
IBM Nonprocess System. 

Areas of disk storage contained within the process 
portion will now be explained in some detail. These 
areas are, in general, automatically assigned by the 
system, but they vary in size depending upon the 
disk system configuration and customer definition. 
As will be shown later, some of these areas can 
be modified, removed, or relocated to another 
storage device. 

User Area. The User Area is so called because it 
is used to store user-written as well as IBM- 
furnished subroutines. It is variable in length and 
is file -protected. It is divided into two component 
areas: 



1 . Relocatable Subroutine Area — an area where 
all relocatable IBM and user-written subrou- 
tines are stored (not shown in Figure 72). 

2. Relocatable Program Area — an area where 
all user-written nonprocess relocatable pro- 
grams are stored as a result of a DUP *STORE 
control record function. This is a user-defined 
area — that is, its boundary increases or de- 
creases Nonprocess Work Storage as programs 
are deleted or added respectively. The number 
of sectors required for a program to be stored 
is subtracted from the Nonprocess Work Stor- 
age if they are both assigned to the same disk 
cartridge. When a program is deleted (by an 
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Figure 72. Disk Layout of a Single Disk Drive 
TSX System 
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*DELETE function), a separate DUP *DEFINE 
PAKDK operation must be performed to repack 
the area. The reason for this is that the relo- 
catable program has not been overlaid and 
packed — the area it occupied is thus not avail- 
able for program storage. The *DEFINE 
PAKDK operation will cause this area to be 
incorporated into Nonprocess Work Storage. 
The packing operation could be executed 
each time an *DELETE function specified a 
nonprocess program, but since this operation 
need not be performed unless a shortage of 
nonprocess area develops, and since the pack- 
ing takes some time, it is only carried out at 
periodic intervals when the *DEFINE PAKDK 
control record is processed. The user should, 
however, assure himself that he has a satis- 
factory audit trail in the event some informa- 
tion is lost during the running of the disk packing 
operation. 

Note that the area available for user programs 
can be expanded by using the *DEFINE REMOV 
function to remove the Simulator, Assembler, or 
FORTRAN Compiler. As an example, if all three 
programs are removed, the nonprocess system will 
be reduced to about 11 cylinders. A Relocatable 
Program Area can be assigned to each of up to 
three drives. 

Nonprocess Work Storage (NPWS). This area is 
always adjacent to the Relocatable Program Area, 
and is used for temporary storage during the exe- 
cution of nonprocess programs. It is used exten- 
sively during the operation of the Nonprocess Moni- 
tor. For example, it is used by the Assembler 
during the assembly of a program and to store the 
successfully assembled program in relocatable 
format. In a FORTRAN nonprocess program, the 
DEFINE FILE statement can refer to this area. 
The Nonprocess Work Storage is variable in length, 
and increases or decreases as programs are added 
to or deleted from the Relocatable Program Area. 
A NPWS area can be assigned to each of up to three 
disk drives. 

Error Dump Area (EDPM). When a machine error 
occurs, the TSX Error Alert Control (EAC) pro- 
gram optionally writes all of core to this area on 
disk. The number of sectors used is directly 
proportional to object core size: a 32K object core 
requires 103 sectors, 16K requires 52 sectors, and 



8K requires 26 sectors. This is a user option 
specified at system generation time. 

Error Save Area (EPSV). This area is used when 
EAC is executed to save the portion of variable core 
used by the error detection program. An Error 
Save Area of six sectors is always automatically 
allocated when the E parameter (see The DEFINE 
CONFG Operation ) is specified. Only one such 
area is required. 

Nonprocess Save Area (NPSV). An area on disk 
used to save a partially completed nonprocess 
(time-shared) program that must be saved when 
time-sharing is terminated. A NPSV equal to 
variable core is always automatically assigned to 
the disk. No such area is required if time -sharing 
is inoperative. 

Message Buffer (MESS) . An area used to buffer 
1053 messages when a WRITE to a 1053 occurs 
while the 1053 is busy. Its length is established 
at TASK assembly time (see System Desiga Con- 
siderations: TASK) . 

Process Work Storage (PRWS). Area used for 
temporary data storage during the execution of 
process programs. It is user-defined and can be 
specified on each of up to three disks, but only one 
such area can be specified in any one *DEFINE 
CONFG control record. 

FORTRAN I/O Save Area (FIOS). Area used to 
save the FORTRAN I/O buffer area when a higher 
level interrupt uses FORTRAN I/O. The user 
specifies the number of interrupt levels that use 
FORTRAN I/O — the system then reserves two 
sectors for each interrupt level plus two additional 
sectors if time-sharing is operative. 

Interrupt Save Area (INSV). An area of disk used 
to save a user-specified variable area of core when 
an out-of-core interrupt occurs. This is user- 
defined and must be equal in length to the largest 
interrupt core load used. The area should also be 
large enough to include the amount of COMMON 
used for communications between the mainline and 
the subprograms in the interrupt core load. 

Core Load Area. An area of disk set aside for 
the storage of core loads as a result of a DUP 
*STORECI operation. Data files are also stored 
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here. The *FILES control record can refer to 
data files located in this area. 

All programs and data files stored in the Core 
Load Area are assigned fixed disk locations. This 
permits the disk location of a process program to 
be kept with the calling program, and results in 
faster access to the program. A Core Load Area 
can be assigned to each disk. 



Since this operation establishes the lengths of 
several related disk areas, and since the user may 
perform the redefinition several times before a 
final determination of the contents of the System 
Skeleton area is made, the DEFINE operation is 
designed to establish all of these areas using a 
small number of configuration control records. 



Special Save Area (SPSV). An area of disk used to 
save the variable area of core when a CALL SPECL 
is executed and time-sharing is inoperative. When 
time-sharing is specified, this area is not required 
unless time -sharing is entered from a core load 
that was entered with a CALL SPECL. 

Process Save Area (PRSV). Area used to store the 
variable area of core when a CALL SHARE or a 
CALL VIAQ (with an empty queue) is entered. 

Skeleton Area (SKEL). Used to store a core image 
copy of the TSX System Skeleton. See System 
Design Considerations: System Skeleton. 

Error Programs (EDP). This area is always re- 
quired, and is used to store the disk portion of the 
TSX error analysis program. This program is 
executed when a machine error occurs. 

Cold Start (CLST). This area holds the TSX Cold 
Start program — which is the program that starts 
the TSX system into operation by loading the System 
Skeleton to core and transferring control to the 
System Director. 



THE DEFINE CONFG OPERATION 

At an appropriate stage in system generation, the 
establishment of the user's disk configuration and 
changes to that configuration are performed using 
the CONFG code in an *DEFINE operation. The 
definition or redefinition of some of the parameters 
consists of changing a stored value on disk. 

In some cases, however, the results of the defi- 
nition are interrelated with the user's routines, and, 
as a result, the Skeleton Builder must be executed 
after these definitions are made. This is most 
notably the case when the size of the System Skele- 
ton is changed to accommodate additional programs 
or data areas. 



*DEFINE CONFG Control Card 

Figure 73 gives an overview of the DEFINE CONFG 
operation for a single drive system. The *DEFINE 
CONFG control card is used when the user's vari- 
able areas are established on disk. Several types 
of definitions may be necessary depending upon 
the information punched in the card. 

The control card contains a field of consecutive 
columns which are punched with a string of one or 
two character codes that have special meaning in the 
CONFG routine. These characters are each fol- 
lowed by a disk drive code to specify the drive(s) 
where the areas are to be established. 

The areas are normally taken from the highest 
numbered sectors of Nonprocess Work Storage, and 
in the same sequence as specified for that drive in 
the string the user punched in the CONFG card (ex- 
cept for M on a one-drive system). 

Other fields in the card permit the user to speci- 
fy lengths for areas that are not fixed by the system. 
These include the length estimated for the System 
Skeleton in core, the interrupt area utilized for 
out-of-core interrupts, the core load area on disk, 
the process work storage on disk, and the FORTRAN 
I/O save area on disk. 

The user must execute the DEFINE CONFG oper- 
ation before he builds his skeleton. If areas estab- 
lished by this definition turn out to be incorrect due 
to miscalculation of user requirements, he will prob- 
ably have to re -define them, and if LSKEL is too 
small and cannot be increased, rebuild his skeleton 
since this will not be known until Skeleton build time. 

Each CONFG control card can define up to 11 
user-assigned disk areas. In practice, two or 
three control cards should be necessary to define 
even the most complex systems. 

In referring to Figure 73, we note that the user 
may employ up to nine different alpha characters 
in any flexible order to specify a maximum of 11 
user-assigned areas, each area being related to its 
specific disk drive. Since we are primarily con- 
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cerned with a one-disk system, disk drive zero 
will be indicated. 

Consider the general case of an *DEFINE 
CONFG control card with all nine possible alpha 
character codes punched in the first field, as 
shown in Figure 73. 



In executing the *DEFINE CONFG operation, 
the define routine first establishes the legality 
of the control card, then scans the field starting 
at column 15, and interprets each alpha character 
in turn from left to right. Simultaneously, it 
establishes areas on the system disk drive 
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Figure 73. Overview of the DEFINE CONFG Operation (Disk Drive 0) 
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specified in the exact sequence of parameters 
punched in the card. 

The disk is configurated from its highest ad- 
dress upwards, and definition of user-assigned 
areas proceeds step-by-step vertically until the 
scanning of the parameter columns is terminated 
by a blank (see Figure 74). 

In initial system generation, that is, when a 
new disk system is first created, certain system 
areas are always established at the high address 
end of disk by specifying the S parameter in column 
15. These areas constitute a basic set of programs 
and disk areas that are required by the system, and 
are file -protected at all times. They are shown 
below (Figure 75) in their correct sequence of 
allocation. 

Each of these programs and areas except the 
Core Load Area must be defined for only one 
drive in the system. 

Note that the Special Save Area is included within 
the specification of the S parameter, only if S is 
immediately followed by an X in column 16. 

At this point, a word of explanation is given on 
the establishment of the Message Buffer Area 
(MESS). This buffer (together with the Error Pro- 
grams and the Cold Start Program) is always de- 
fined at the time the IBM Nonprocess System object 
deck is loaded to disk by the System Loader (which 
computes the MESS length from data punched in the 
*DEDIT and TASK equate card, NOCYL). Its proper 
location at the high end of disk at the end of the 
loading operation is shown in Figure 76. 

At DEFINE CONFG time, the location of MESS 
is redefined, that is, it is bodily moved to a dif- 
ferent location on the disk. For example, if the F 
parameter immediately follows SXO in the control 
card, MESS will be reflected as in Figure 77. 
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Figure 75. Establishment of System Areas at High Address 
End of a Disk 
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Figure 76. Establishment of Message Buffer Area at System 
Load Time 
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Figure 74. Illustrating Direction of Disk Configuration 



Figure 77. Illustrating Redefinition of the Message Buffer Area 
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The Message Buffer Area always precedes the 
Core Load Area on a one-drive system. Note, 
however, that if MESS is not required, that is, no 
provision is made for it in the *DEDIT control card, 
M should not be specified in the *DEFINE CONFG 
control card, and no redefinition of this area takes 
place. 



Examples of Disk Configurations 

The following examples illustrate typical disk con- 
figuration operations. 

EXAMPLE 1. Define a single drive disk system 
such that logical disk drive zero shall contain the 
following areas: 

• Core Load Area: 30 cylinders 



• Process Work Storage: 6 cylinders 

• FORTRAN I/O Save Area: 4 sectors 

• Interrupt Save Area: 2000 words 

• Skeleton Area: 16, 000 words 

• Message Buffer: 6 cylinders 

• Error Dump Area 

• Error Save Area 

• Nonprocess Save Area 

A 32K system is assumed. 

It is the user's responsibility to specify the 
lengths of the first six areas required: the DEFINE 
CONFG function automatically computes and allo- 
cates the remaining three areas. Since a 32K 
machine is used, an Error Dump Area equal to 
object core size (32K) and a Nonprocess Save Area 



equal to variable core (16K) are assigned to the 
disk. An Error Save Area of six sectors is always 
automatically allocated when the E parameter is 
specified. 

The control card sequence for this operation is: 
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Figure 78 reflects the disk layout for disk drive zero 
on completion of this function. 
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Figure 78. Disk Layout of Disk Drive Zero for Example 1 
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EXAMPLE 2. Define a three-drive TSX on-line 
system as follows: 



Drive Zero 



Drive 1 



Drive 2 



Label this disk cartridge: 13579 
Core Load Area = 30 cylinders 
Process Work Storage = 5 cylinders 
FORTRAN I/O Save Area = 24 sectors 
Skeleton Area = 16384 words 
Nonprocess Save Area 

Label this disk cartridge: 12345 
Establish a LET/FLET area of 2 cyl- 
inders 

Core Load Area = 100 cylinders 
Process Work Storage = 10 cylinders 
Message Buffer = 6 cylinders 

Label this cartridge: 09876 

Establish a LET/FLET area of 1 cylinder 

Core Load Area = 125 cylinders 

Interrupt Save Area = 2048 words 

Error Dump Area 

Error Save Area 



A 32K system is assumed. 

As this is a multi-drive system, the total num- 
ber of disk drives available to the system must be 
defined. Remember that the System Loader 
assumes at system load time that only one disk 
drive (logical disk drive zero) is present on the 
system; DCOM thus indicates only one disk drive. 
The *DEFINE NDISK is therefore a redefinition of 
the system: this must always be performed before 
the skeleton is built. 

Disk cartridges , other than that on logical drive 
zero, which are intended for system usage are then 
initialized by the DUP *DLABL function. Since 
disk drives 1 and 2 have not previously been identi- 
fied as system drives, they are cleared (including 
file-protect bits), disk addresses are written, a 
LET/FLET area is established as specified, and a 
label written on each disk cartridge. In the case 
of disk drive 2, a one-cylinder LET/FLET area 
is defined by default. Logical drive zero is re- 
labelled with 13759. 

A separate *DEFINE CONFG control card must 
be used for each disk cartridge if it is to contain a 
Core Load Area and/or Process Work Storage. 
Note that S is only used to specify a basic set of 
system programs/areas, which includes the Core 
Load Area, for the system drive (logical drive 
zero) . The parameter C , indicating a Core Load 
Area, is only used for auxiliary disk drives (drives 
1 and 2). 



As pointed out in Example 1, it is the user's 
responsibility to specify the lengths of the following: 
Core Load Area 
Process Work Storage 
FORTRAN I/O Save Area 
Interrupt Save Area 
Skeleton Area 
Message Buffer for 1053 Printer 

The *DEFINE CONFG function automatically 
computes and allocates disk storage for: 

Error Dump Area 
Error Save Area 
Nonprocess Save Area 
Nonprocess Working Storage 

In our example, since a 32K machine is implied, 
an Error Dump Area equal to object core size (32K), 
and a Nonprocess Save Area equal to variable core 
(16K) are allocated. An Error Save Area of six sec- 
tors is automatically set aside whenever E is speci- 
fied. Note that Message Buffer Size is determined by 
the TASK equate card NOCYL at TASK assembly time. 

Figure 79 reflects the layout of the three disks 
following configuration. 

The control record sequence for this multiple 
operation is given below: 



SAMPLE CODING FORM 


1 — 10 


11-20 


21-30 


31-40 


41-50 




51-60 1 61- 


l|2|3|4|5|6|7|B|9|0 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 


|2|3|4|5|6(7|8|9|0 


l|2|3|4|5|6|7|e|9|0 


,1a 


Mi iJiDH , , , 1 , , , , 1 , , , , | i , , , | , , , , | , , , , | , , , , | , , , , | , , , , | , , , , | , , , , | , , | , | 


/,/i ft icAAcrflqt, ,cwas, ,pp#, MFXtWtfft A 3i ,£U,s,ki ,Qf;,AV\e; .zsm ,qa( ,ur/t& s\y$r,£M\ 


Ml iM\P, , , , 1 , , , , 1 , , , , 1 , , , , 1 , , , , 1 


, 1 , , , i 1 


, I 1 1 Inn llllll 


fcoisvywe; j/jAiak ,3l , , , , I , , , , i , , , , i 




1 


i 


lxxJlj^ h.ll.,1 


Ml Jm .mImiJmmImhImmI 


,,,!,,,,! 


. . 1 


U.JUJ.1 ll._l.li 


i,i, map, , , , i , , , , i , , , , i , , , , r , , , . i 


,,,,!,,,,!, 


1 , 1 , , , , 




LLi il_±l , 1 IJ.I ,\ 


m-ABL. , ,«. 1 . ,3,5,719, , , , 1 , , , , 1 , , , , 1 


, , , , 1 , , , , 1 , 


, , 1, , ., 


, , 1 , , , , 1 , , , , 1 


Mi JOB, , , , 1 , , , , 1 , , , , 1 , , , , 1 


, , , , 1 , , , , 1 . 


,!,,,,! 




Mi AU\P, , . , 1 , , , , 1 , , , , 1 , , . , 1 , , , , I 




,,!,,,,! 


LU.lLl.,J 1 L±!.,i 


rftaM-Sk, , X 1 4, 2,3 AS, , ,0,012, , , , 1 , , . , i 


, , , 1 , , , , 1 , 


mImmI 


.LI .l..l_L L_i 1 1 J- ,. 1 J 


1,1, JOB , , , 1 . , , , 1 , , , , 1 , , , . 1 , , , . 1 


, , , , 1 , , , , 




l_LJ_L J _ J .-l_Lj_ 

, , 1 , , , , 1 , 


LiJ i,_iu 1 , ,,, J 


i,i, MP. , , , 1 , , , , 1 , , , , 1 , , , , 1 , , , , 1 


, , , , 1 , , , , 




KO,M,Sk , ,2, 1 ,0,9,3,716, , , , I , , , , I , , , , I 


, , , , 1 , , , , ! , 


, , 1, . . ,1, 


uIli^ ! liuJ 


1,1, MB, , , ,z|f^,o, ,ow,e, i ,t\w, , , 1 , , , , 1 


1 1 


,,l,., ,1, 


1 1 1 , 1 1 1 1 , 1 1 1 1 


/i/i ifl-V. , , , | , , , , | i , , i 1 , , , , | , , , , | 


i , , , 1 , i , i 1 i 


J,M,I 


.uimj 1 J J.I.. 1 


tkD£flW,£, CtWfr $\X0MMZ0,E241,r : </>,p,d 


,16,SM, ,0,Z,p\4,B 


.iM i0i«to^ 


.Ly.Lj J . J l.l l .U.J 


1,1, J,o\a , , ,2W,K,0, ,OW& , ,nw, , , 1 , , , , 1 


,,,,!,,,,!, 


L_L-L_L.., l_d 


i 


_U.il -!_._. Illlll 


l,h MAP. , , , 1 , , , , 1 , , , , 1 , , , , 1 , , , , 1 


,,,,!,,,,!, 


mImm 


__-.ll-l_._x 1- l-a-i -, 1 


*P€f,ZHe, ,c,oHf,6, P&PJ, , 1 , , , , 1 , , , , 1 


, i , , 1 , i i i 1 i 


,«Uid0 4011,0 


nil- 1 


hi, ,J,o» , , ,zieve,o, m,ei , ,tw>> , , 1 , , , , 1 


i i , i 1 i i , i 1 i 


,,1,1,11! 


1 i 1 I 1 1 I 1 I 1 I 1 1 


1,1, MAP, , , , 1 , , , , 1 i i i i 1 , , , , 1 , i i , 1 


, i ( 


, , 1, , , , 1 1 


1J il _____ t , I.. I 1 


*jO|_W to«; ,CfW,r&, ,c|2, i i i I , , , , I , , , , I 




,0,l\Z,S, , , 1 , 


ill 1 


/,/, Mb, , , Z\ej?p, ,of/f, | <mo, , , I , , , , 1 









1,1, MAP. , , , 1 , , , , 1 i i i , 1 , , , , 1 , , , , 1 




LJ _d_L L ....J 


i 


._l.il_L_i.il I i_,J J 


Wim-F.T, , 1 , , , , 1 , , , , 1 , , , , 1 




lxo-L.^jJ 


t I 1 1 I I 1 i i i I 1 1 


/ ,., jm, , , ,-&.,o, ,cwf, , ,vivo ,1 


■ , , , 1 , , i i 1 , 


^.lL^J 


. , ! . , , , 1 . , , i i 


1,1, ,m°, ,<¥. M^t, .ws, , l , , , , i , , , , i 




,,!,,,,!< 


_-__.L..l___L 1 ..__., J 


.,,,!,,,, IM 1 


, i i , 1 , , , , 1 i 


, 


l_. , il ______ i 1 1-11 1 
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Figure 79. Definition of a Three -Drive TSX On-Line System for Example 2 

EXAMPLE 3. Define a three -drive TSX off-line 
system as follows: 



Drive Zero 



Drive 1 



Drive 2 



Core Load Area = 50 cylinders 
TASK Skeleton Area = 8000 words 
Message Buffer Area = say 6 cylinders 
Process Save Area 

Label this disk pack: 12635 

Establish a LET/FLET area of 2 cylinders 

Core Load Area = 50 cylinders 

Label this disk pack: 23764 

Establish a LET/FLET area of 5 cylinders 

Core Load Area = 50 cylinders 



A 16K system is assumed. 

The number of disk drives available to the off- 
line system is first defined, as in Example 2. Disk 
drives 1 and 2 are then initialized, and LET/FLET 
areas established (see Figure 80). Since each disk 
cartridge is to contain a Core Load Area, a separ- 
ate control card is used to define each cartridge. 
Note that the skeleton area on logical drive zero is 
configurated to hold the TASK monitor system. 



DISK DRIVE 2 

— | = FILE PROTECTED AREA 



Figure 80 reflects the disk layouts of the off-line 
system. 

The control record sequence is given below: 



SAMPLE CODING FORM 


I - to 


11-20 


21-30 


31-40 


41-50 


51-60 


61- 


l|2|3|4|5|6|7|8|9|0 


||Z|3|4|S|6|7|8|9|0 


l|2|3*|6|7|8 


9|0 l|2|3|4|5|6|7|8|9|0 


1 J2|3|4[5l6|7|8|9l0 1 |:>i3|4|s|6| 7J8l9|o 


■ IshUlsl 


1,1, Jo\B, , , , | , , , , ! , i , , | | , 




i 1 , l i i 1 i l i i 1 , i i 


1 , , l , 1 i i , , 1 , , 1 , 1 


/,/, * fcOtfTTtlOA ,CA\KAS, W& 


pfWMftfr A 


,31 OKJVW, ,7,5,X| fl,F,F 


Lfej^sr p,ya7;£W i , i I 


1,1, lWl« miI.M.IhuIm 








, i 1 , i i , 1 , i , 


lLlxj 






HiarflZftfT //0FAK 3l i, , , 1 , , 










l_U.l_i 








/l/i JOB , , , 1 , , , , 1 , , , , 1 , , 










i_L_lj 








1,1, JWP. , , , 1 , , , , 1 , , 








,,!,,,,!,,, 


lLl.XJ 








fiqiABIt, , ,i, 1 BASIS', , aiAS , 










lI^x, 








i,i, JToia . , , 1 , , , , i , , , , i , , 










±LXJ 








'i'i JVV. , , , 1 , , , , 1 , , , , 1 , , 










L_L._l_, 








HOAAB\L, , ,2, I .23,7 fl* , ,0M5 , 










l_Ll._l_, 








i,i, Ma. , , , I , , , , I , , , , 1 , , 








, , 1 , , , , 1 , , , 


L±J.XJ 








1,1, A<¥, , , , 1 , , , , 1 , , , , 1 , , 










J_1J_I 








ttofi/yrKr, PPWTS, ,$ttf,M,0\ . , 




, 1 ,0,8 


4M, , 


, , 1 , , ,0^SLS0, , 


J_1_U 








1,1, J,o& , , , 1 , , , «| , , , ,xi , , 










lIlj. 








1,1, M\P, mJ.m.ImhIi 










_L-U 








*,A£i/vrW,£; ,c,otv^,s, c\i, , , , 1 , , 








i,l,, ,0,1150, , 


±^ 








1,1, iv/Tola , , , 1 , , , ,xi i i , iXl , , 










_Ll_LJ 








i,i, ,nu\P. , , , 1 , , , , 1 , , , , l , , 










lLl-u 








WVfVWf, pmm £12, , , , | , , 








, , 1 , , ,0015,0, ; 


J-L-LJ 








i,i, Joia , , , i , , , ,xi 1 1 , ,xi , , 










-Li-j-j 








1,1, MP, , , , 1 , , , , 1 M i , 1 , , 








, , 1 , , , , 1 , , , 


_Ll_LJ 








HiWMfV-tt ImmIumIm 










±j.j_ 








hi, J,0A , , , 1 , , , ,XI i i i iXl , , 








, , 1 , , , i 1 i , , 


Jjj_ 








/,/, ,Ef4p, ,0,F, \A,L,L, ,jpflS, , | , , 








, , 1 , , , , 1 , , , 


ilJ. 








i ii, 1, , , , 1 , , , , 1 i i i , 1 , , 








, , 1 i , i , 1 , i , 


Jj.^ 
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Figure 80. Definition of a Three-Drive TSX Off-Line System for Example 3 



DISK CARTRIDGE INITIALIZATION 

There are three programs within TSX concerned with 
disk cartridge initialization. 

• TASK DISK WRITE ADDRESS (TDWA, a TASK 
utility program) 

• DWRAD (a DUP function) 

• DLABL (a DUP function) 

A comparison of their features is given in Table 
13 at the end of this section. 



Use of TDWA 

A disk cartridge cannot, by definition, be used for 
processing functions unless it is first initialized by 
TDWA. Thus, whenever a disk cartridge is initially 
supplied, or is to be re -initialized, TDWA must be 
used. This operation is carried out in the off-line 
mode under TASK control (e.g. , at system genera- 
tion time). 



TDWA performs two basic functions: it (1) checks 
the ability of the disk to record and reproduce infor- 
mation, and (2) writes addresses on the disk, flags 
defective cylinders, zeroes all storage words, and 
records the first sector of each defective cylinder on 
sector zero of the disk cartridge which is file- 
protected. TDWA does not label the disk cartridge. 

A practical example of the initialization of a two 
disk-drive system is given in Programming Techni- 
ques: TSX Sample System. For TASK DISK WRITE 
ADDRESS system procedures, see IBM 1800 Time- 
Sharing Executive System, Operating Procedures, 
Form C26-3754. 



Use of DWRAD 

DWRAD allows the user to perform in an on-line or 
off-line mode the following functions: 

• Rewrite sector addresses in any specified 
cylinderized area on any disk cartridge 

• Retain or save the contents of the sectors 
indicated, if desired, for analysis purposes 
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• Zero from one to 199 cylinders as specified 
(except cylinder zero) 

• Enforce file protect or file unprotect on the 
entire area specified 

DWRAD does not label the disk cartridge. 

As disk sector addresses may be inadvertently 
modified or destroyed during the execution of user 
programs, such as in the transfer of data to core 
by a READ command, or by hardware failures, 
DWRAD provides the user with the ability to rewrite 
sector addresses of specified areas without recourse 
to a re-initialization process by TDWA. Whenever 
addresses in a certain area are destroyed, data can- 
not be retained or preserved in these sectors; the 
area must be readdressed and the data zeroed. 

The file protect/file unprotect feature is useful 
in those situations where the user desires to en- 
force or remove file protection from a specified 
disk file or systems area. He might, for example, 
require to remove file protection from a certain 
portion of the Core Load Area for Assembler 
WRITE operations, and later restore file protection 
to that area. 

The following examples depict typical operations. 

EXAMPLE 4. Two cylinders beginning at sector 408 
and ending at sector 417 are to be file protected. 
Assume that the disk cartridge is on disk drive zero. 
Information on these cylinders is not to be changed. 



SAMPLE CODING FORM 


I — 10 


11-20 


21-30 


31-40 


41-50 


l|2|3|«|5|6|7|B|9|0 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 


l]2J3]4|5|6[7l8|9|0 


l|2|3 4|5|6|7|8|9|0 


/i/i JOB ,0 , 1 , , , , 1 i , 


, 1 1 , , , 1 , 








L_L_1 l-J-LXJ 






/i/i AlAR . . . 1 . i , , 1 i . 


;,.,,! 










m.Im 


I 1 I 


i i 


WftAfc , , , H , , , 1 , i 


,4(0,8, , 4\U 


, ,z 








, , , 1 , , 


, 1 I 




/,/, m* Of, ft* A, rfofiS 


. 1 . . . , 1 , 










, , , 1 , , 


I 1 1 




fli*.|A,A<*l ,caxM ,,,,l.i 


, 1 , , . . 1 , 










, , , 1 , , 


I 1 , 




V.*H*\ .CAfifl , , , , 1 , , 


, 1 , , , , 1 , 










Mill 






i i i i 1 . . , i 1 i i i i 1 i i 


i 1 , , i . 1 , 










I.I 1 1 1 1 







Note that file protection (or the removal of file 
protection) will only be effective if the disk drive 
indicated (in column 11) is defined to be on the sys- 
tem. That is, it is specified on the // JOB control 
card. 

EXAMPLE 6. Zero cylinders 27 10 to 32 10 with 
file protection removed. Assume that disk cartridge 
is on drive 2. 



SAMPLE COOING FORM 


1-10 


11-20 


21-30 


31-40 


41-50 


l|2|3|4|5|6|7|e(9|0 


l|2|3|4|5|6|7|8|9|0 


lj2j3j4(5|6|7|8|9jo J 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5]6|7J8J9|0 


/i/i iJTOla ,z, , 1 , , , , 1 m i ,XI I , , , 1 , , , 




, , , , 1 , , , , 1 , , , , 1 , , , , 1 


'i'i AW ,,,!,,,, 1 , , , 




mmImmImmImm! 


kiwwta , , , 12, , , , i , , , ,010,6, , ,ii00, , 


jZ 


.* . , 1 . , . . 1 , . . , 1 I 1 . . 


/|/| &W ...ImmImmImmIm, 




. , . . . . . . i 


9Mrt*l ,owl , , , , I , , , , 1 , , , , 1 , , , 




, , , , 1 , , , , 1 , , , , 1 , , , , 


SfMA ,Cflfifi\ , , , , | | , , , 




>,<l mI.Imm 


1 1 1 1 1 , 1 1 , 1 , 1 I 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 




■.;■,'.■ .... , . , . . J 



SAMPLE CODING FORM 


1 — 10 


11-20 


21-30 


31-40 


41-50 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|s|9|0 


l|2|3|4|5[6|7|8|9|0 


l|2|3|4|5|6|7J8|9|0 


l|2|3|4|5|6|7|fi|9|0 


/./i sm ,0, , 1 , , i 


, , 1 , , , , 




/./l fim , , , 1 , , 


. 1 I , i i 1 i 


. I 1 , . I , 




Li i , i 1 i i i i 

_■ , i ±. 1 i i. , , 


•fiwKAfo , , , 10 , 


, 1 , , i A\<k8 


, rfU,7, , , 




/,/, Am ,0,/=-, w.,l 


&0&S^ , ( , 


, , 1 , , I l 


. . . i 1 . . . i 1 . . . I 1 1 i i i 


fl|t|/l|A«| ,C,AfA i . 


! . , 1 


1 .... , 




Btfim ,C,A/zp\ , , 


,1,11,1, 


, , 1 , , , , 




1 1 II 1 1 . 1 1 1 1 1 


,!,,,,!, 


.,!,,,, 


, . . , 1 , . . . 1 , I . , 1 I , , , 



EXAMPLE 5. Two cylinders as specified in Exam- 
ple 4 are to be file unprotected. Clear all sectors. 
Assume that disk cartridge is on disk drive zero. 



Use of DLABL 

Disk cartridges on disk drives other than logical 
drive zero, and intended for system usage, must be 
initialized by means of the DUP *DLABL function. 
DLABL serves three purposes: 

• Places a label on the cartridge 

• Establishes a LET/FLET table 

• If certain conditions are met, it also writes 
addresses on an entire disk 
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DLABL places a numeric label, as specified by 
the user on the *DLABL control card, in word zero 
of sector zero on the disk cartridge. To prevent 
users from inadvertently destroying the system, only 
the label is written when the disk drive specified is 
drive zero, and when the drive is a system drive. 
All other data on these cartridges, including defec- 
tive cylinder addresses in sector zero, remain un- 
changed. 

For all other disk cartridges, DLABL assumes 
an unlabelled, pre-addressed disk cartridge. It then 
clears the cartridge, including the file-protected 
areas, but not including the defective cylinder ad- 
dresses in sector zero of cylinder zero; writes a 
new label, if specified, in word one, sector zero of 
the disk, and establishes a file -protected LET/FLET 
area (LET in sector one, FLET in the last sector of 
the LET/FLET cylinder area). Note that unless the 
disk cartridge operated on is located on logical 
drive zero, or a system drive specified on the 
// JOB card, DLABL will erase all data as it 
writes addresses, and always establish one file- 
protected cylinder. 

The size of the LET/FLET area is determined 
either by user specification on the DLABL control 
card, or, if unspecified, automatically made to be 
eight sectors. 

Each DUP *DLABL function must be run as a 
separate job; that is, each *DLABL control card 
should be preceded by a // JOB, // DUP card com- 
bination, and should be followed by the next // JOB 
card. It can be performed in either the on-line or 
off-line mode. 

For typical DLABL operations, see Examples 
2 and 3; also, Programming Techniques: TSX 
Sample System. 

Table 13. Comparison of TDWA, DWRAD, and DLABL Features 



FEATURES 


TDWA 


DLABL 


DWRAD 




ON SYSTEM 


OFF SYSTEM 




CARTRIDGE 
TEST 


YES 


NO 


NO 


NO 


ON-LINE 

OR 
OFF-LINE 


OFF-LINE 


BOTH 


BOTH 


BOTH 


CLEARS 
CARTRIDGE 


YES 


NO 


YES 


YES 

(BY SPEC. 

CYLS.) 


FILE PROT./ 
FILE-UN PROT. 


FILE PROT. 

CYL. ZERO 

ONLY 


NO 


FILE 
UNPROTECTS 


BOTH 

(BY SPEC. 

CYLS.) 


WRITES 

SECTOR 

ADDRESSES 


YES 


NO 


NO 


YES 

(BY SPEC. 

CYLS.) 


WRITES 
LABEL 


NO 


YES 


YES 


NO 


ESTABLISHES 

LET/FLET 

AREA 


NO 


NO 


YES 


NO 



SUMMARY OF DISK STORAGE REQUIREMENTS 
AND ASSIGNMENT RESTRICTIONS 



1. Disk areas that are fixed and equal for all sys- 
tems, regardless of core size. These are il- 
lustrated below. Note that these areas con- 
stitute a basic nonprocess system. 



DCOM 



MBT-AT 



SK SUB 



.SUP 



.CLB 



.DUP 



.ASM 



.FOR 



.SIM 



LET-FLET 



/EPSV 



.EDP 



/CLST 



I CYLINDER 

II SECTORS 
9 SECTORS 

64 SECTORS 
40 SECTORS 
104 SECTORS 
100 SECTORS 
1 CYLINDER 



6 SECTORS 



30 SECTORS 
6 SECTORS 



2. Disk areas that are not dependent upon core 
size, but which may vary in disk storage 
requirements 

Relocatable Program Area. This will expand 
or contract in size as relocatable programs are 
added to or deleted from the system. 

Nonprocess Work Storage. NPWS will increase 
or decrease as relocatable programs and sub- 
routines, are added to or deleted from the 
system. 
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Message Buffer Area. The size of the Message 
Buffer Area is computed by the user and speci- 
fied during system generation. The factors 
which determine its size are discussed in System 
Design Considerations: TASK. 

Core Load Area. The size Of the Core Load 
Area is specified by the user at DEFINE CONFG 
time. 

System Skeleton Area. This is a copy of the 
skeleton area of core; its size is determined 
by the formula: 

Skeleton Size = Total Core Size Minus Size 
of Variable Core 

FORTRAN I/O Save Area. The number of 
sectors required for this area is determined by 
the number of interrupt levels which use 
FORTRAN I/O. See Disk Organization. 

3. Disk areas where storage requirements depend 
upon the size of variable core. These include: 

• Nonprocess Save Area 

• Interrupt Save Area 

• Special Save Area 

• Process Save Area 

4. Disk areas that must be assigned to logical 
disk drive 0: 

DCOM 

MBT-AT 

SK-SUB 

SUP 

CLB 

DUP 

ASM 

FOR 

SIM 

IBM Subroutine Library 



Disk areas that must be assigned to one disk 
drive, but need not be assigned to logical disk 
drive zero: 

EPSV 

CLST 

INSV 

ERPG 

PRSV 

SKEL 



6. Disk areas that may be assigned to one disk 
drive, but need not be assigned to logical disk 
drive zero: 

EPDM 

NPSV 

MESS 

FIOS 

SPSV 

7. Disk areas that will be assigned to the same 
disk drive, but need not be assigned to logical 
disk drive zero: 

PRSV 
SKEL 
ERPG 
CLST 

8. Disk areas that can be assigned to more than 
one disk drive: 

Relocatable Program Area 

NPWS 

PRWS 

Core Load Area 

9. Disk areas that must be assigned to every disk 
drive: 

LET/FLET 

10. Disk File Protection 

(a) Certain areas of the disk are file-protected. 
This means that the user cannot write into 
any of these areas at object time, although 
he can update file-protected files by using 
FORTRAN I/O only. System programs 
can, however, write into file -protected 
areas. 

These areas include the following: 

DCOM 

MBT-AT 

SK-SUB 

SUP 

CLB 

DUP 

ASM 

FOR 

LET/FLET 

IBM Subroutine Library 

Relocatable Program Area 

Core Load Area 

SPSV 

PRSV 

SKEL 

EDP 

CLST 
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(b) User-written programs are stored in the 
file -protected areas on disk. Programs 
are written into (that is, added to the sys- 
tem) file -protected areas by the DUP 
*STORE, *STOREMD, *STORECI, and 
*STOREDATA operations. 

(c) File -protected areas are fixed in size and 
cannot be altered by the user. 

SYSTEM SKELETON 



In an on-line TSX system, a nucleus of supervisory 
programs and their associated work areas and tables 
must be permanently core-resident to obtain effic- 
ient and continuous operation. At the center of this 
nucleus is the System Director which provides the 
essential communications between core loads and 
interrupt servicing routines. This framework of 
programs is referred to as the System Skeleton. 

TASK is used in conjunction with the Skeleton 
Builder program to construct the in-core skeleton 
as required for TSX system operation within the 
limits prescribed by the user. The size and content 
of the skeleton is dependent on the size of the object 
machine, the size of user's process programs, and 
the size of process core loads which the user may 
plan to move in and out of core during system oper- 
ation. The skeleton can be considered as the per- 
manent part of all executable core loads. 

For on-line processing to take place, the System 
Skeleton must be loaded to core memory; this is 
accomplished initially by the system cold start pro- 
gram. 



FIXED AREA 



SKELETON I/O 



SKELETON COMMON 



ICL TABLE 



SYSTEM DIRECTOR 



INTERRUPT SUBROUTINES 



OTHER 

USER 

SUBROUTINES 



PATCH AREA 



PROGRAM NAME TABLE 



EXECUTIVE TRANSFER VECTOR 



EXECUTIVE BRANCH TABLE 



SKELETON INTERRUPT BRANCH TABLE 



Figure 81. Constitution of the System Skeleton 



CONSTITUTION OF THE SYSTEM SKELETON 



Figure 81 illustrates the various component parts 
that make up the System Skeleton. Each of these 
parts and its function are explained below. 

Fixed Area. This is effectively a systems commun- 
ications area containing information used by all TSX 
system programs. It is initially assembled as part 
of TASK. At skeleton build time, various values in 
this area are initialized by the Skeleton Builder from 
System Director input. A disk image of the Fixed 
Area can be obtained by a disk dump of the first 
sector of the Skeleton. See Appendix C: Contents 
of the Fixed Area of Core. 



Skeleton I/O. An identical set of input-output routines 
to that used by TASK forms the basis of Skeleton I/O. 
This permits the user to perform various disk, 
printer, and card utility functions (see System De- 
sign Considerations: TASK). 



Skeleton Common. The maximum size of the Skele- 
ton Common area for an object machine is defined 
and fixed by the user at TASK assembly time through 
the equate card COMSZ. COMSZ may be zero or any 
positive decimal value that will not cause the skeleton 
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size to exceed the start address of variable core 
(that is, VCORE). TASK will determine the start 
address and word count of this common area and 
store them in words 156 and 157 in the Fixed Area. 
INSKEL COMMON is the only common area that is 
permanently core -resident. It provides communica- 
tions between various core load types, and those sub- 
routines included in the skeleton. When INSKEL COM- 
MON is referenced in a FORTRAN program, listed 
variables are assigned addresses in Skeleton Common. 
All other attributes of the COMMON, as used in the 
FORTRAN language, are retained. 



System Director. This forms the operating center of 
the TSX system. It has the responsibility of direct- 
ing interrupt servicing, loading of user core loads, 
supervising time-sharing, and servicing of interval 
timers and error conditions. When the system is 
operating under control of the System Director, con- 
trol is passed to it by TSX calls, interrupts, and 
error conditions. The System Director is that por- 
tion of TSX, other than the Skeleton I/O, which must 
be in core at all times in order to respond to a real- 
time environment. A detailed discussion of its func- 
tions is given in another section of this manual. 



User Subroutines. The user has the option of includ- 
ing frequently called subroutines and high priority 
interrupt routines in the skeleton. These may include: 

• Skeleton subroutines 

• Interrupt subroutines 

• Programmed Interrupt subroutines 

• Count subroutines 

• User-written trace and error subroutines 

• Timer subroutines 



These programs must have previously been com- 
piled/assembled by the user and stored in relocatable 
format in the Relocatable Program Area on disk. 

In addition, if FORTRAN I/O is utilized, then those 
conversion routines (e. g. , HOLEB, EBPRT) neces- 
sary for its proper use must also be included in the 
skeleton by having them specified on *INCLD control 
cards. A detailed examination of some of the impor- 
tant considerations governing the inclusion of sub- 
routines in the skeleton is made later in this section. 



Patch Area. This is the portion of core storage that 
remains between the end of the subroutine area and 
the Skeleton Program Name Table (PNT) which is 
allowed (not explicitly defined) for the modification 
of IBM and user programs within the skeleton. Its 
size is determined by user requirements, but should, 
in practice, be at least 100 words in length to allow 
for future IBM modifications. 



Program Name Table. This is the part of the skele- 
ton table area that maps (name, word count, and sec- 
tor address) all core loads referenced to Program 
Sequence Control (PSC) by calls made by in-skeleton 
subroutines. The symbolic name (SYDIR) in trunca- 
ted EBCDIC code for the System Director forms the 
first entry in this table. See Figure 82. 



Executive Transfer Vector (ETV). The Executive 
Transfer Vector serves as a linkage between LIBF- 
type calls of a core load and corresponding routines 
in the skeleton. It is originally constructed by TASK; 
for each LIBF routine put into Skeleton I/O by TASK, 
an entry is made into the ETV. At skeleton build 
time, the Skeleton Builder inserts an entry into the 
ETV for each entry point of each LIBF routine placed 
in the skeleton, by extending the size of the original 
ETV to reflect the entries for the included subroutines. 
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30B0 
3DC0 
3DD0 
30E0 
3DF0 
3E00 
3E10 
3E20 
3E30 
3E40 
3E50 
3E60 
3E70 



0000 


0000 


|22A0 
2220 
2364 


4259 
91A3 
5544 


0024 
OAEO 
0B7A 


0000 
13BA 
13CC I 


220C 
2614 


1572 
5480 


0C2E 
OADC 


139C 
13C3 


1358 
0764 


7C75 
1105 


005E 
116A 


13A6 
138E 


1358 
0314 


; 7DB0 
9563 


0AE0 
0A26 


13B1 
1382 


0000 
4480 
3E57 
1A61 
4480 
3E47 


4480 
3E5C 
25DE 
4480 
3E4C 


00B8 
25AE 
4480 
3E51 
0000 


0000 
4480 
3E56 
29F7 
4480 


4480 
3E5B 
25E4 
4480 
3E4B 


00B9 
25D2 
4480 
3E50 
0000 


0000 
4480 
3E55 
0000 
4480 


4480 
3E5A 
0000 
4480 
3E4A 


OOBA 
25EO 
4480 
3E4F 
0000 


0000 
4480 
3E54 
0000 
4480 


4480 
3E59 
28B6 
4480 
3E49 


0063 
25E2 
4480 
3E4E 
1A61 


24A4 
4480 
3E53 
0000 
4480 


4480 
3E58 
1A61 
4480 
3E48 


3E5D 
25D7 
4480 
3E4D 
0000 


2600 
4480 
3E52 
2AFA 
4480 


3010 
2B60 
2D46 
2A7D 


3001 
2B52 
2EC4 
2A64 


2FF0 
291C 
2B00 
2A4A 


2B60 
28C8 
2B05 
29E6 


2B6 
2896 
2ABF 
28EE 


2B60 
288C 
2E68 
28A8 


2EB6 
27CA 
2A78 
2740 


2E9C 
2792 
2 A 00 


2CEC 
270C 
2A5F 


2C98 
2305 

2E3C 


28C8 
1FF1 
2D46 


28C8 
1FA9 
2CFA 


28C8 
2009 
2C34 


2C21 
1E90 
2781 


2BCA 
1F63 
2B26 


2BBC 
1D8C 
2ABA 


| 4C00 
4C00 
4C00 


1DEF 
0C8D 
3 04F 


4C00 
0000 


04F1 
OOOB 


4C00 
4C00 


20D0 
2FAA 


4C00 
4C00 


04F4 
304C 


4C00 
4C00 


OFOA 
313A 


4C00 
0000 


0724 
0003 


4C00 
4C00 


0727 
ODOO 


4C00 
0000 


072A 
0014 



•SKELETON PNT 

• SKELETON ETV 

• SKELETON EBT 
SK1BT 

CORE LOAD STARTS HERE 



3E5E 3E5E 3E5E 3E5E 3E5E 3E5E 3E7E 0018 3E7A 0003 /3E5E 3E76 3E74 3E72 OOOB 3E6E 
3E5E 3E6C 3E6A 3E68 3E5E 3E66 3E64 3E62 3E5E 3E60 i 3E5E I 0000 0000 4383 0000 43 



0000 4386 0000 0000 0000 0000 7004 4383 0000 0000 ' 7004 I 0000 4480 00 B 8 0000 4480 



3E80 1028 0001 4026 

3E90 

3EA0 

3EB0 

3EC0 

3ED0 

3EE0 

3EF0 

3F00 

3F10 



CDW 



A..,. 



FORTRAN I/O 

3E80 0010 0051 OObA 0003 /o3E8- 134A 0010 0000 | 3E5E 3E5E 1 



25D2 4480 3F5A 25E0 4480 3E59 25E2 4480 3E53 25D7 4480 3E57 

4480 3E55 0000 4480 3E54 28B6 4480 3E53 1A61 4480 3E52 1 A6 1 

3E50 0000 4480 3E4F 0000 4480 3E4E 0000 4480 3E4D 2AFA 4480 

0000 4480 3E4A 0000 4480 3E49 1A61 4480 3E48 0000 



25DE 
4480 
3E4C 



0000 0000 0000 0000 0000 0000 0000 0000 0000 



4480 3E47 I 0000 
0000 0000 0000 0000 



0000 



0000 
0000 



00B9 0000 4480 OOBA 0000 4480 0063 239A 4480 3E5D 26D0 4480 3E5C 25AE 4480 3E5B 



4480 3E56 25F4 

3E51 29F7 4480 

0000 4480 3E4B 
0000 



CORE LOAD IBT 



CORE LOAD ETV 



0000 
0000 



Figure 82. A Partial Dump Following a Skeleton Build to Illustrate the Program Name Table and the Executive Transfer Vector 



Each entry in the ETV is three words long, cor- 
responding to the format of the VTV table associated 
with each core load. When the skeleton build process 
is completed, word 3 will contain the address of the 
corresponding entry in the Executive Branch Table 
(EBT). 

The Executive Transfer Vector is, in reality, a 
copy or duplicate of the ETV in all core loads, and 
is effective only during disk-to-core transfers. 

Figure 82 is given to provide a better insight of 
the Program Name Table (PNT) and the Executive 
Transfer Vector (ETV). It is a partial dump snap- 
shot of the skeleton built for the 1800 TSX-Sample 
System (see Programming Techniques) , and should 
be studied in conjunction with the Skeleton Core Map. 

Each entry in the PNT is four words in length. 
Since the System Director is the first (and constitutes 
the minimum) entry in a PNT, let us examine this 
entry. From the dump we see 



Consider another entry, SCAN2. The dump 
shows 

220C I _ Name (SCAN2) of this core load 
1572 1 in truncated EBCDIC form 

0C2E = Core load word count 
139C = Disk drive and sector address where 
core load resides 



In turning to the ETV, we see that each entry is 
three words long. Consider the entry DISKN. From 
the dump we see 

0000 = Entry point to the subroutine ETV entry 
4480 = BSI indirect branch 
00B8 = Address where subroutine branches 
through 



22A0 
4259 



Name (SYDIR) of System Director 
in truncated EBCDIC form 



0024 = Number of words in PNT (hexadecimal 

value) 
0000 = Not used 



Figure 82 also illustrates the Core Load Data 
Words (CDW), the Core Load IBT, the Core Load 
ETV, and the FORTRAN I/O table. 
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Executive Branch Table (EBT). A map of all LIBF 
and call subroutines in the user subroutine and Sys- 
tem Director areas of the skeleton. Each entry is 
one word long. The EBT is employed as a transfer 
vector: an indirect branch through the EBT is used 
to enter the referenced subroutine. 

Skeleton Interrupt Branch Table (SKIBT). A map of 
all interrupt servicing subroutines in the skeleton. 
It is used in conjunction with the Master Branch 
Table (core load header words in sectors 1 and 2 on 
disk) to guide the interrupt to its proper routine in 
the skeleton. Each entry consists of a two-word 
BSC instruction. 

The table is built during skeleton build time by 
entries put into the MBT. Word 2 of each entry is 
filled by a word from the corresponding MBT entry, 
while the location of the SKIBT entry itself replaces 
the MBT entry. 



SKELETON CORE SIZE 

The length of the skeleton in words is defined by the 
user at DEFINE CONFG time, and given by the param- 
eter LSKEL (see System Design Considerations: Disk 
System Configuration) . LSKEL must be an even value 
and is equal to the address of the first word in variable 
core (VCORE). 

In general, skeleton size is estimated by the user 
after making allowances for the System Director, 
Skeleton I/O, Skeleton Common, user-written sub- 
routines, and the PATCH area. Skeleton Common 
and the PATCH area dimensions are determined by 
exact user requirements. Some of the important fac- 
tors influencing skeleton size will now be considered. 



Core Storage 

The amount of core storage available determines the 
number of features which can be included in a TSX 
system (see System Design Considerations: System 
Director) . For example, is the system an off-line 
or an on-line system? Is time-sharing required? Is 
the Interval Timer Control feature used? 

As a rule, in an on-line system using time-sharing, 
variable core must be a minimum of 3692 words. For 
example, in an 8K system, the maximum skeleton size 
would then be 4500 words (see Figure 83). 

If the time-sharing feature is not required in an on- 
line system, the in-core skeleton may occupy all of 
core less 2500 words. This 2500-word restriction is 
necessary because of space requirements for the Cold 
Start and Error programs at the high end of core 



storage (see Figure 84). Under this system, non- 
process work would have to be accomplished off-line 
under TASK control (see Figure 85). 

The maximum size of the skeleton is always dic- 
tated by the balance of core storage above the skele- 
ton: 3692 words minimum for Nonprocess Monitor 
use, or for non time- sharing users, a minimum of 
2500 words minimum for the Cold Start and Error 
programs. 

It should be noted that too small a skeleton may 
demand frequent disk exchanges requiring excessive 
time, while too large a skeleton may reduce the var- 
iable space available for core loads and thus cause 
o ve r- s egmentation . 

Figures 83, 84, and 85 summarize these rules 
for the on-line system (with time-sharing) , on-line 
system (non-time -sharing) and the off-line system. 



Inclusion of Subroutines in the Skeleton 

The user may elect to include interrupt and other 
subroutines permanently in the skeleton for more 
rapid system response. The criteria governing these 
inclusions and the advantages gained thereby are dis- 
cussed below. 



VCORE 



(/FIFO) 



VARIABLE 

CORE 

(3692 WORDS) 

MINIMUM 



SKELETON I/O 



SYSTEM 
SKELETON 



USED BY: CORE 
LOADS, ASM, FOR, 
SIM, CLB 



SUP 
DUP 
FOR 
ASM 
SIM 
CLB 



Figure 83. On-Line (Time-Sharing) System 
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,VCORE 



2500 

WORDS 

MINIMUM 

VARIABLE 

CORE 



SYSTEM 



SKELETON 



USED BY: 

CORE LOADS 



VCORE 



(/FIFO) 

VARIABLE 

CORE 

(3692 WORDS) 

(MINIMUM) 



SKELETON I/O 



TASK 



USED BY: 

CORE LOADS 

ASM 

FOR 

SIM 

CLB 



SUP 

DUP 

FOR 

ASM 

CLB 

SK. BLDR 

SYS. LOADER 

SIM 

TASK UTILITIES 



Figure 84. On-Line (Non Time-Sharing) System 



Figure 85. Off-Line System 



Response Time. The shortest response time (that is, 
the minimum time before an interrupt servicing rou- 
tine is entered after a process or program interrupt 
is recognized) is obtained by placing the servicing 
routine in core with the skeleton. The main advantage 
of having as many routines as possible permanently 
resident in the skeleton is faster response time. 

Commonly-used Subroutines. Subroutines which are 
commonly enough referenced in core loads warrant in- 
clusion in the skeleton. The advantages derived are: 

1. Better utilization of disk user area and core load 
area. Every subroutine that is included in the 
skeleton is commonly shared by the several core 
loads referencing that subroutine. This means 
that each core load no longer contains the called 
subroutine, thus reducing core load length, and 
hence disk space. 

2. Since the length of individual core loads has been 
shortened, less disk time is required to load the 
core load. 



3. The effect of having a larger skeleton produces 
a disk space advantage. A larger Core Load 
Area is now possible because save areas, that 
is Special Save (SPSV), Process Save (PRSV) 
and Nonprocess Save (NPSV) can be smaller. Of 
necessity, the Interrupt Save (INSV) Area (as 
defined by the DEFINE CONFG parameter (UNS) 
can be no longer than the above-mentioned save 
areas. It can now be smaller. Furthermore, 
the user can now delete those subroutines that 
are included in the skeleton from the user area. 
This extra space on disk thus gained may be 
utilized for other purposes such as work areas 
and relocatable programs. 

Subroutines Specified in the CALL TIMER Statement . 
Timer servicing subroutines should, as a rule, al- 
ways be included in the skeleton. These subroutines 
can perform some execution, but it is preferred, if 
any I/O device is required, that they simply set a 
programmed interrupt (by a CALL LEVEL (I)) or 
queue a mainline core load and return control to ITC. 
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Consider for example where a mainline calls a timer 
as follows: 

EXTERNAL SUB1 

CALL TIMER (SUB1, 1, INCRE) 

The user is responsible to ensure that the mainline 
that requested the CALL TIMER statement remain in 
core until the end of the elapsed specified time {that 
is, until the timer times out). One way of achieving 
this is for him to mask out all out-of-core interrupt 
levels and not change core loads until the timer inter- 
rupts. He thereby ensures that the core load con- 
taining the subroutine SUB1 remains in core. 

If, however, he does not wish to remain in a 
masked state, a second approach is to have previously 
included SUB1 in the skeleton. In this way, he does 
not incur the penalty of waiting for the timer to inter- 
rupt, and also gains the advantage of not tying up var- 
iable core. 



process components (such as the Assembler, 
FORTRAN Compiler, etc.) use their own card I/O 
routine. 

If the user intends to do FORTRAN DP I/O from 
the skeleton, he should ensure that the conversion 
subroutine associated with any DP I/O device used by 
skeleton subroutines be included in the skeleton. He 
does this by means of an *INCLD control card at 
skeleton build time which loads the appointed con- 
version routine from the IBM Subroutine Library. 

Figure 86 shows the relationship between each 
DP I/O device and its associated pair of function and 
conversion subroutines. For example, the 1442 card/ 
read punch unit is associated with CARDN (its func- 
tion routine) and HOLEB (its conversion routine). 
Note that there is no conversion routine for the 2401 
magnetic tape drive: the conversion is by-passed. 
Conversion routines should be consistent with the 
precision required (that is, whether standard or ex- 
tended) as specified in the TASK equate card PRICS. 



Count Subroutines . The Count subroutine is simply 
another method of servicing an event. Unlike timer 
interrupts, count interrupts may run off a different 
time base, and utilize larger time intervals. If the 
user plans to use the CALL COUNT statement, he 
should remember that for immediate servicing of an 
event, it is preferred that he set up these routines as 
part of his skeleton. If he does not, the event can be 
recorded and subsequently serviced by a CALL QIFON. 

I/O Devices and their Associated Conversion Subrou- 
tines Required for FORTRAN DP I/O. On an on-line 
TSX system, the normal DP I/O utility functions are 
carried out by a package of skeleton I/O routines 
which also forms the basis of input -output operations 
in TASK. That is, the same set of I/O routines exist 
in TASK and the System Skeleton. ! Since the TSX Sys- 
tem is a disk operating system, DISKN will be in core 
(that is, in the skeleton) at all times. If a 1053 print- 
er or a 1816 keyboard/printer has been specified in the 
assignment stage, TYPEN/WRTYN must also be per- 
manently in core. Similarly, if a 1443 printer has 
been assigned, PRNTN must be resident in the skele- 
ton I/O area. These routines are automatically in- 
cluded in the System Skeleton at skeleton build time. 

Although CARDN is always resident in core during 
TASK execution, this routine is an optional part of the 
Skeleton I/O, depending on user requirements. The 
user must, however, define at TASK assembly time 
(by equating CDINS to 1 or 0) whether or not CARDN 
is to be in the skeleton. If it is not included, it; will 
be loaded as a part of those core loads which address 
the card reader. Note that in this event, the non- 



Inclusion of Explicit and Implicit Subroutines. In the 
compilation of a FORTRAN problem program, the 
compiler-generated machine language coding includes 
a large number of branch instructions which transfer 
control to subroutines during execution of that pro- 
gram. It is, in fact, the subroutines that perform the 
majority of operations in any given problems. These 
subroutines can be classified into two distinct types: 
explicit, and implicit. 

Explicit subroutines are those subroutines that 
are clearly formulated or externally visible in a main 
program. Implicit subroutines, on the other hand, 
are those subroutines which are involved in the solu- 
tion of a problem program, but not externally revealed. 



ASSOCIATED 
SUBROUTINES 


DP I/O 
DEVICE 


TYPEN 
EBPRT 


1053/1816 Keyboard Printer 


CARDN 
HOLEB 


1442 Card/Read Punch 


PRNTN 
EBPRT 


1443 Printer 


PAPTN 
PAPEB 


1054/1055 Paper Tape Reader & 
Punch 


MAGT 


2401 Magnetic Tape Unit 


TYPEN 
HOLEB 


1816 Keyboard Unit 


PLOTX 
ECHRl or 
FCHRl 


1627 Plotter Unit 



Figure 86. Illustrating Relationship of DP I/O Devices 

to Associated Function and Conversion Subroutines 
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If the user plans to include FORTRAN subroutines 
in the Skeleton, he should make adequate core space 
allowance both for explicitly named and implicitly 
called subroutines. The explicitly named user- 
written subroutine is included in the Skeleton by 
specifying its name in an *INCLD control card at 
skeleton build time, while any implicitly referenced 
subroutines will be automatically loaded at the same 
time. 

The following two examples examine skeleton core 
requirements for typical situations involving explicit 
and implicit subroutines. 

EXAMPLE 1 - FORTRAN CASE. Consider a main 
program which is required: 

1. To set up variables of a 10 by 10 matrix and 

2. To call a user-written subroutine MSQRT which 
is to compute the square root of each element 
in the array. 



Program Listing No. 5 shows the compilation 
run, from which it can be seen that if the user 
intends to include the subroutine MSQRT in the 
skeleton, he should make appropriate skeleton 
space allowances for the following: 



(Explicit) MSQRT = 

(Implicit) FSQRT = 

FSTOX = 

SUBSC = 

SUBIN = 



(program + variable) 
72 words 



86 words 

102 words 

44 words 

36 words 



340 words 
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PROGRAM LISTING NO. 5: EXAMPLE 1 — FORTRAN CASE 



// JOB 

// FOR MATRX 

*NONPROCESS PROGRAM 

*LIST ALL 

C SAMPLE MAIN PROGRAM TO CALL A MATRIX SQUARE ROOT SUBROUTINE 

DIMENSION VALUE! 10, 10) 

N = 10 

SUM = 0.0 

DO 5 1=1, N 

DO 5 J=1,N 

SUM = SUM + 1.0 
5 VALUE! I, J) = SUM 

CALL MSQRT(VALUE,N) 

CALL EXIT 

END 
VARIABLE ALLOCATIONS 
VALUEIR )=OOC6-0000 SUM(R )=00C8 N!I )=OOCA 1(1 )=OOCC J(I )=OOCE 

STATEMENT ALLOCATIONS 
5 =00F0 

FEATURES SUPPORTED 
NONPROCESS 

CALLED SUBPROGRAMS 
MSORT FADD FLD FSTO FSTOX SUBSC 

REAL CONSTANTS 

.OOOOOOE 00=00D2 .100000E 01=0004 

INTEGER CONSTANTS 

10=00D6 1=00D7 

CORE REQUIREMENTS FOR MATRX 
COMMON INSKEL COMMON ■ VARIABLES 210 PROGRAM 66 

END OF COMPILATION 

MATRX 

DUP FUNCTION COMPLETED 

// FOR MSQRT 

*LIST ALL 

*NONPROCESS PROGRAM 

SUBROUTINE MSORT(A,N) 
C USER WRITTEN MATRIX SQUARE ROOT SUBROUTINE 

DIMENSION A(10,1Q) 

DO 1 1=1, N 

DO 1 J=1,N 
1 A! I, J) = SQRT! A(I ,J) ) 

RETURN 

END 
VARIABLE ALLOCATIONS 

Id )=0000 J(I )=0002 

STATEMENT ALLOCATIONS 
1 =001A 

FEATURES SUPPORTED 
NONPROCESS 

CALLED SUBPROGRAMS 
FSQRT FSTOX SUBSC SUBIN 

INTEGER CONSTANTS 
1=0006 

CORE REQUIREMENTS FOR MSQRT 
COMMON INSKEL COMMON VARIABLES 6 PROGRAM 66 



END OF COMPILATION 



MSQRT 

DUP FUNCTION COMPLETED 

*STORE MSQRT 

MSQRT 

DUP FUNCTION COMPLETED 

*STORECIL MATRX MATRX 

*CCEND 
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CLB, 


BUILD 


MATRX 




CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


4002 


OOOC 


*IBT 


TABLE 


400E 


0023 


*FIO 


TABLE 


4031 


0010 


*ETV 


TABLE 


4041 


OOOC 


*VTV 


TABLE 


404D 


0021 


*PNT 


TABLE 


406E 


0004 


MAIN 


MATRX 


414C 




PNT 


MATRX 


4070 




LIBF 


FLD 


41EA 


404D 


LIBF 


FSTO 


41D0 


4050 


LIBF 


FADD 


421E 


4053 


LIBF 


SUBSC 


429C 


4056 


LIBF 


FSTOX 


4186 


4059 


CALL 


MSORT 


42D0 




LIBF 


FARC 


4310 


405C 


LIBF 


SUBIN 


4344 


405F 


CALL 


FSORT 


4 386 




LIBF 


FMPY 


43D9 


4062 


LIBF 


FLDX 


41E5 


4065 


LIBF 


FDIVX 


4416 


406 8 


LIBF 


FADDX 


4218 


406B 


CALL 


FTNTR 


4480 




CALL 


FTRTN 


449A 




CORE 




44AA 


3B56 


CLB, 


MATRX 


LD XQ 




DUP FUNCTION COMPLETED 


// XEQ MATRX FX 




// JOB 






// END OF ALL JOBS 



If other core loads are going to use the same 
subroutines, he may also include some of the 
implicit subroutines referenced by the main pro- 
gram MATRX. This will increase his skeleton 
size by 362 words as shown below. 



EXAMPLE 2 — ASSEMBLER CASE. Consider a 
main program which is required: 

To call a user-written subroutine QUAD to 
solve a quadratic equation 

AX 2 + BX + C = 

using the positive square root, and assuming 
the quantity under the square root sign is 
greater than zero. 

From Program Listing No. 6, it can be seen that 
if the user intends to include QUAD in the skeleton, 
adequate space allowances should be made for the 
following: 

(Explicit) QUAD = (program + variables) 

82 words 



(Implicit) FADD = 
FLD = 
FSTO = 



158 words 
102 words 
102 words 
362 words 



FLD = 
FMPY = 
FSTO = 
FSUB = 
FSQR = 
FADD = 
FDIV = 
(Implicit) FARC = 
FSTOX = 
FLDX = 
FDIVX = 
FADDX= 
FTNTR= 
FTRTN= 



102 words 

65 words 

102 words 

158 words 

86 words 
158 words 

106 words 

52 words 

102 words 

102 words 

106 words 

158 words 

40 words 

40 words 



1459 words 



System Design Considerations 169 



PROGRAM LISTING NO. 6: EXAMPLE 2 ~ ASSEMBLER CASE 



// JOB 
// ASM 
*LIST 



SAMPLE SUBROUTINE TO SHOW THE USE OF 
IMPLICIT ANU EXPLICIT SUbKOUTINE 
CALLS 

THIS SUBROUTINE SOLVES A QUADRATIC 
EQUATION 

A«(X**2) + B*X + C = 
USING THE POSITIVE SQUARE ROOT, AND 
ASSUMING THE QUANTITY UNDER THE 
SQUARE ROOT SIGN IS GREATER THAN ZERO 



0012 




18901100 




ENT 


QUAD 


0000 




0000 




BSS 


E 


0000 


00 


00000000 


A 


DEC 


0.0 


0002 


00 


00000000 


B 


DEC 


0.0 


0004 


00 


00000000 


C 


DEC 


0.0 


0006 


00 


00000000 


X 


DEC 


0.0 


0008 


00 


00000000 


TEMPI 


DEC 


0.0 


OOOA 


00 


00000000 


TEMP 2 


DEC 


0.0 


OOOC 


00 


40000083 


FOUR 


DEC 


4.0 


OOOE 


00 


40000082 


TWO 


DEC 


2.0 


0010 




0002 


TEMP 


BSS 


2 


0012 





0000 


QUAD 


DC 





0013 


01 


C4800012 




LD 


QUAD 


0015 





D8FA 




STD 


TEMP 


0016 


01 


CC800010 




LDD 


TEMP 


0018 





D8E7 




STD 


A 


0019 


01 


74010012 




MDX 


. QUAD,1 


001B 


01 


C4800012 




LD 


QUAD 


00 ID 





D8F2 




STD 


TEMP 


001E 


01 


CC800010 




LDD 


TEMP 


0020 





D8E1 




STD 


B 


0021 


01 


74010012 




MDX I 


. QUAD,1 


0023 


01 


C4800012 




LD 


QUAD 


0025 





D8EA 




STD 


TEMP 


0026 


01 


CC800010 




LDD 


TEMP 


0028 





D8DB 




STD 


C 


0029 


20 


064C4000 




LIBF 


FLO 


002A 


1 


OOOE 




DC 


TWO 


002B 


20 


06517A00 




LIBF 


FMPY 


002C 


1 


0000 




DC 


A 


002D 


20 


068A3580 




LIBF 


FSTO 


002E 


1 


0008 




DC 


TEMPI 


002F 


20 


064C4000 


* 


LIBF 


FLD 


0030 


1 


0000 




DC 


A 


0031 


20 


06517A00 




LIBF 


FMPY 


0032 


1 


0004 




DC 


C 


0033 


20 


06517A00 




LIBF 


FMPY 


0034 


1 


OOOC 




DC 


FOUR 


0035 


20 


068A3580 




LIBF 


FSTO 


0036 


1 


OOOA 




DC 


TEMP2 


0037 


20 


064C4000 




LIBF 


FLD 


0038 


1 


0002 




DC 


B 


0039 


20 


065 17A00 




LIBF 


FMPY 


003A 


1 


0002 




DC 


B 


003B 


20 


068A4080 




LIBF 


FSUB 


003C 


1 


OOOA 




DC 


TEMP2 


003D 


30 


06898640 




CALL 


FSQR 


003F 


20 


06044100 




LIBF 


FADD 


0040 


1 


0000 




DC 


A 


0041 


20 


06109940 




LIBF 


FDIV 


0042 


1 


0008 


# 


DC 


TEMPI 


0043 


20 


068A3580 


LIBF 


FSTO 


0044 


1. 


0006 




DC 


X 


0045 


01 


74010012 




MDX L 


. QUAD,1 


0047 


01 


C4800012 




LO 


QUAD 


0049 





D0C6 




STO 


TEMP 


004A 





C8BB 




LDD 


X 


004B 


01 


DC800010 




STD 1 


TEMP 


004D 


01 


74010012 




MDX I 


QUAD, 1 


004F 


01 


4C800012 




BSC 1 


QUAD 


0052 








END 





ARG A WILL BE STORED HERE 
ARG B WILL BE STORED HERE 
ARG C WILL BE STORED HERE 
RESULT WILL BE STORED HERE 



SET UP ARGUMENTS A..B.C 
VALUES CCME FROM MAIN PROG 



TO CALCULATE DIVISOR 2*A 
LOAD 2.0 INTO FAC 

MULTIPLY 2.0 BY A TO GET 

2.0*A 

STORE DIVISOR TEMPORARILY 

TO CALCULATE DIVIDEND = A + 
SQUARE ROOT OF B**2 -4*A*C 
LOAD A INTO FAC TO CALCU- 
LATE 4*A*C 



STORE 4*A*C TEMPORARILY 

LOAD B INTO FAC TO CALCU- 
LATE B**2 = B*B 

HAVE B*B IN FAC. NOW TO 
SUBTRACT 4*A*C 

TAKE SQ.U.OF B*B-4*A*C 
ADD A TO SQUARE ROOT. GET 
A+SQ.RT(8#B - 4*A*C) 
TO DIVIDE DIVIDEND BY 2*A 



TO STORE RESULT IN X 



NO ERRORS IN ABOVE ASSEMBLY. 
QUAD 

DUP FUNCTION COMPLETED 
// ASM MAIN 
*LIST 
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0000 



BSS 



0000 


00 


40000081 


AA 


DEC 


1.0 


0002 


00 


60000082 


BB 


DEC 


3.0 


0004 


00 


40000082 


CC 


DEC 


2.0 


0006 


00 


00000000 


XX 


DEC 


0.0 


0008 


30 


18901100 


START 


CALL 


QUAD 


OOOA 


1 


0000 




DC 


AA 


OOOB 


1 


0002 




DC 


BB 


OOOC 


1 


0004 




DC 


CC 


OOOD 


1 


0006 




DC 


XX 


OOOE 





3000 




WAIT 




OOOF 


30 


059C98C0 




EXIT 




0012 




0008 




END 


STAR 



MAIN PROGRAM TO CALL SUBROUTINE QUAD 




TO BE FILLED IN BY SUBR 



NO ERRORS IN ABOVE ASSEMBLY. 
MAIN 

DUP FUNCTION COMPLETED 
// XEQ MAIN L 
*CCEND 

CLB, BUILD MAIN 



CORE LOAD 
TYPE NAME 



MAP 

ARG1 ARG2 



#CDW 

*IBT 

*FIO 

*ETV 

*VTV 

*PNT 

MAIN 

PNT 

CALL 

LIBF 

LIBF 

LIBF 

LIBF 

CALL 

LIBF 

LIBF 

LIBF 

LIBF 

LIBF 

LIBF 

LIBF 

CALL 

CALL 

CORE 



TABLE 

TABLE 

TABLE 

TABLE 

TABLE 

TABLE 

MAIN 

MAIN 

QUAD 

FLD 

FMPY 

FSTO 

FSUB 

FSQR 

FADD 

FDIV 

FARC 

FSTOX 

FLDX 

FDIVX 

FADDX 

FTNTR 

FTRTN 



4002 
400E 
4031 
4041 
404D 
406E 
407A 
4070 
4096 
413A 
4153 
4120 
41A4 
4246 
41B0 
4289 
42EE 
40D6 
4135 
4284 
41AA 
4322 
433C 
434C 



OOOC 
0023 
0010 
OOOC 
0021 
0004 



404D 
40 50 
4053 
40 56 

4059 
40 5C 
40 5F 
4062 
4065 
4068 
406B 



3CB4 



CLB, MAIN LD XQ 



// JOB 

// END OF ALL JOBS 



System Design Considerations 171 



CALCULATING SKELETON CORE SIZE 

Skeleton Core Size can be arrived at by computing the value of the start address of variable core (VCOItE), an 
even number. VCORE is equal to a summation of: 

SKELETON INSKEL SYSTEM + USER'S SKELETON + PATCH 

I/O COMMON DIRECTOR PROGRAMS TABLES AREA 

The manner in which the SYSTEM DIRECTOR is calculated has already been discussed (see System 
Design Considerations: System Director ). INSKEL COMMON, the PATCH AREA, and the USER'S 
PROGRAMS are defined by the user. 

SKELETON I/O = Fixed Area = 200 words 

+Disk Device Tables = 66 words per drive 

+DISKN = 900 + (12 + (9XDORG2)) X DORG1 + 12 X MKLEV 

+ 1053 Device Tables = 14 + message unit size (add 1 if the message unit size is odd) 

per 1053 and 1816 
+ 1816 Device Tables = 14 words per keyboard 

+ TYPEN = 256 + (3XN) + (341 + (8XNOCYL)) X NOBUF + (20 + (2XTORG)) 
X(l-NOBUF) + (418 + (8X(M-1))) X TORG + 16XMKLEV 
where N = number of 1053/l816s 
and M = number of 1816 s 
+ 1053/1443 Timing Response Routine = 2 + (78XTORGN) + 22XPORG 
+ 1443 Device Table = 14 words 
+ PRNTN = 323 words + 16XMKLEV 
+ Constants & Work Areas = 200 + 42XECPT1 + 27 (1-ECPT1) 

where ECPT1 = or 1 if EAC printer 
is a 1053 or 1443 respectively 
+ CARDN (if included) = 328 words + 23XCRDNO + 10XMKLEV 

Note that NOBUF, TORG, TORGN, MKLEV, PORG, NOCYL, and ECPT1 are TASK equate cards. 

SKELETON TABLES = Program Name Table : = 4 + 4 X the number of called mainline and combination 

core loads from the skeleton. 
+ Executive Transfer Vector = 3 X the number of LIBF functions in the skeleton. 
+ Executive Branch Table = 1 word per entry for each entry point for LIBF and 

CALL Subroutines contained in the skeleton (excepting 
Skeleton I/O). 
+ Skeleton Interrupt Branch Table = 2 X the number of bits in all labels (that is, 

ILSW words) NB00-23. 
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USE OF *INCLD CONTROL CARDS 

Before the System Skeleton can be built, it is a 
condition that user-written subroutines and pro- 
grams intended for inclusion in the skeleton must 
be assembled and/or compiled and stored on disk 
in relocatable format. These are assigned to the 
skeleton area by *INCLD control cards at skeleton 
build time. The various types of subroutines that 
are suitable candidates for inclusion have already 
been mentioned elsewhere in this section. 

Subroutines planned for tracing and/or error 
options may also be included in the skeleton, but 
it should be noted that they are not, as such, auto- 
matically functional, because these routines can 
only be entered through linkages provided in the 
individual core loads. In order to use them, there- 
fore, their names must appear in appropriate 
*INCLD cards which must be present when building 
those core loads where tracing or error options 
are desired. Furthermore, in the case of error 
subroutines , the entry is made only if the core 
load is a process mainline, combination or interrupt 
core load. If any nonprocess core load or monitor 
function is in progress , the error routine will not 
be included. 

The following example is given to illustrate the 
general use of *INCLD control cards in a typical 
skeleton build Operation. The sequence of control 
cards is shown below: 



SAMPLE CODING FORM 


1-10 


11-20 


21-30 


31-40 


41-50 


l|2|3|4)5|6|7|8|9|o 


l|2|3|4|5|6|7|e|9|0 


||2|3|4|5|6|7|S|9|0 


l|2|3|4|5|6|7|8|9|0 


l|2|3|4|5|6|7|8|9|0 


Vi \ J \°\% i , . I , i , , 1 1 1 i i 1 i i 1 1 1 , i i , 1 1 , . . I , i , . 


i i i i 1 


. . i 


Vi /&> . S .W? mIhhI , ... 1 .... 1 ... . 


i . i i 1 






*/l^l^?w,/^Ffl , , 1 , , , , 1 , , , , 1 , , , , 1 , , , 1 


. . . i 1 


I 




WW£WMWAM*„rw&/ &&&*?&/ ?/?&A , 


. i i i 1 


. 




*AM&wr&&,?H*fWt&fa .. 1 .... .i .... 1 ... . 


i . . I 1 


i 




t*M6t\&MWr/t7tiU , , Vl., , , , .1 , , , , I , , , , 1 , , , , 


. . l . 1 






*M>Wip&W, ... 1 .... 1 .... 1 .... 1 .... 1 ... , 


Mill 






+TW£!foJf>/'fl8*rt*&fr , , 1 , , , , l , , , , 1 , , , , 1 , , , , 


i 1 i i | 




1 


*<&&& ... 1 .... 1 .. . . 1 .... 1 .... 1 .... 1 ... . 


1 1 ' l 1 






> i i i 1 , , , , 1 . . . . 1 i . . . 1 . . . i 1 . . , . 1 . . , . 1 . . . . 


....I 


. 





Five types of subroutines are considered: 

• EBPRT and HOLEB are IBM Library Conversion 
Subroutines. JOHNB is a special user-written 
arithmetic subroutine. 



• PGI05/2405 and PGI15/2501 are interrupt 
servicing routines which service programmed 
interrupts on levels 5 and 15 respectively. 

• CNT04/2604 and CNT17/2701 are user-written 
count routines #4 and #17 respectively. 

• TRAC2, EROR1 and EROR2 are special user- 
written trace and error subroutines. Note that 
at core load build time, these three subroutines 
must be named by *INCLD cards in those core 
loads selected for the trace and/or error options 
in order to establish their linkages in the skele- 
ton. (If this is not done, no tracing or error 
checking takes place. ) 

The flexibility in system usage and design 
(in permitting a core load to be traced by a 
special user-written trace routine other than 
the trace routine normally included in the skele- 
ton) is a definite advantage as it is simpler to 
modify a core load than to modify the skeleton. 



SUMMARY OF THE SKELETON BUILD PROCESS 

Before the System Skeleton can be built, several 
prerequisite conditions must have been met. These 
include: 

• The IBM Nonprocess System has been loaded. 

• User-written subroutines required for residence 
in the skeleton have been assembled/compiled 
and stored on disk in relocatable format. 

• The System Director has been assembled and 
stored on disk in relocatable format. 

• Disk file configuration has been defined. 

• An Operating TASK (that is a user-configurated 
TASK) has been assembled and punched into 
cards. 

Briefly, the skeleton build function can be 
broken down (in simplified form) into three sepa- 
rate steps: 

1. TASK Initialization 

2. Relocation of component parts 

3. Building the Skeleton Tables 



• 10402/0402 serves as an interrupt servicing 
subroutine for a process interrupt assigned 
to level 04, bit 02. 



Figure 87 illustrates the skeleton build opera- 
tion as each sector of the skeleton is constructed 
and relocated to the Skeleton Area on disk. 
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Figure 87. Layout of the System Skeleton as it would appear at Skeleton Build Time in NFWS and the Skeleton Area 
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TASK Initialization. TASK begins the skeleton 
build function by initializing certain communications 
areas which reside in sectors 1 - 4 on disk. These 
areas include: 



• Master Communications Words (MCW) 

• Master Branch Table (MBT) 

• Skeleton FORTRAN I/O Table (SFIO) 

• Executive Transfer Vector (ETV) 

• Skeleton Subroutine Name Table (SKSUB) 

This step determines the amount of core storage 
available between the high addressed end of TASK 
and the first word of the Skeleton Builder: the 
available core storage is cleared and subsequently 
allocated to the various loading tables. The Skele- 
ton Subroutine Table (SKSUB) is then read from 
disk into its allocated area in core. The Control 
Record Entry Table (CRENT), which was con- 
structed by the Skeleton Build Supervisor phase 
(SKA), is read, one entry at a time. These are 
analyzed and inserted into the appropriate tables. 



Relocation of TSX Component Parts. The main 
function of the skeleton build operation is the con- 
struction in core-image format in the Nonprocess 
Working Storage on disk of the permanent part of 
all core loads and to establish their linkages to 
the System Director and various other IBM and 
user-written programs. As each sector of the 
skeleton is built it is written to the Nonprocess 
Working Storage. The disk image of the completed 
skeleton is finally physically moved to the Skeleton 
Area of the process portion of disk and file pro- 
tected. 

The Skeleton I/O is first written to a predefined 
area in the Nonprocess Working Storage on the 
temporary disk drive for later reference by the 
Skeleton Builder. 

The length and initial address of Skeleton Com- 
mon are now obtained from the Master Communi- 
cations Area, and the desired size of the Common 
Area in the skeleton image cleared and reserved. 
The upper boundary of this area is later set to 
correspond with the starting address of the Sys- 
tem Director. 

It was noted in System Design Considerations: 
System Director that the System Director was 



assembled and stored on disk prior to a skeleton 
build. At this same time, space was allocated for 
an Interrupt Core Load Table (ICLT), its size being 
determined by user-specified NIL equate cards. 
Using the System Director as the main program, 
the Skeleton Builder constructs the skeleton in much 
the same fashion that the Core Load Builder builds 
a core load. Certain words in the ICL table (the 
first header word and the first and second entry 
words) associated with bits corresponding to those 
interrupt subroutines resident in the skeleton are 
now filled in. Later on, DUP makes the required 
entries into the ICL table whenever it stores an 
interrupt core load on disk. 

User-written and other subroutines are now in- 
cluded in the skeleton image on disk following the 
System Director. 

The Patch area constitutes that portion of core 
image that remains between the end of the subrou- 
tine area and the Skeleton Program Name Table. 

Building the Skeleton Tables. During the final stage 
of the skeleton build process, the four tables shown 
in Figure 81 are modified and/or built from data 
provided in the Master Communications Area and 
user-specified *INCLD control cards. Note that 
the tables are built and used by the Skeleton Builder 
during the construction of the skeleton core load. 
All of the loading tables are assembled in a descend- 
ing chain; that is, the first entry occupies higher 
core locations than the second, the second higher 
than the third, and so on. The details and function 
of each table are given elsewhere in this section 
(see Constitution of the System Skeleton) . 

For detailed step-by-step operational procedures 
of the skeleton build process, the user should refer 
to the IBM 1800 Time-Sharing Executive System, 
Operating Procedures , Form C26-3754. 



Rebuilding the System Skeleton 

While relocatable programs can be deleted and re- 
placed on-line by the Nonprocess Monitor, it is 
not possible to modify any features of the System 
Skeleton on-line. Changes in the skeleton area 
(including skeleton interrupt routines) will thus 
require an off-line Skeleton rebuild. 

The TSX Skeleton may be rebuilt at any time 
by following the detailed procedures specified 
for an initial Skeleton build in the IBM 1800 Time- 
Sharing Executive System, Operating Procedures, 
Form C26-3754. 
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Since INSKEL COMMON is not open-ended, 
the user may face the difficulty of adding to it 
once it is defined. It is recommended that an 
extra area should be reserved in INSKEL COM- 
MON to allow for programming contingencies. 
See Core Load Rebuild Conditions. 

The Executive Branch Table (EBT) and the 
Skeleton Interrupt Branch Table (SKIBT) have 
already been described. These tables are pro- 
vided to allow the user to rebuild the System 
Skeleton if he were modifying subroutines, changing 
the logic flow or adding patches to the System Di- 
rector and TASK such that addresses in core loads 
will still reference a fixed address in variable core. 
An ability to shift the entry points of subroutines 
within the Skeleton is thus available without the 
necessity of rebuilding the referencing core loads. 

If, however, the entry points within these tables 
no longer pointed to the same subroutine, all core 
loads must be rebuilt. 

Core Load Rebuild Conditions 

When the Skeleton is initially built, the entry points 
to the in-core-with-skeleton interrupt routines are 
placed in the ICL Table, and all other table entries 
are cleared. 

When this skeleton is later rebuilt, the in-core- 
with-skeleton entry points are substituted into the 
proper areas; the word count and sector address 
of out-of-core interrupt routines are then recovered 
from the old skeleton and placed in their respec- 
tive table locations, provided that there is not al- 
ready an entry point there. 

In a skeleton rebuild, it may not be necessary to 
rebuild those core loads built under the previous 
(old) Skeleton if the following conditions are met: 



3. The number of entry points for included sub- 
routines may not be modified between in- 
clusions. 

4. If TASK or the System Director is reassembled, 
the number of interrupt levels used, the length 
of INSKEL COMMON, and the length of the 
Skeleton should not be altered. 

Note that a change in the size of INSKEL 
COMMON implies a reassembly of TASK. 
Also, if the location of INSKEL COMMON 
changes, all core loads using INSKEL COM- 
MON must be rebuilt. If, for example, Skele- 
ton I/O changed in size, an adjustment in IN- 
SKEL COMMON size equal to the change in 
the Skeleton I/O could eliminate the necessity 
for rebuilding all core loads that use E^SKEL 
COMMON. 

5. If there is to be any variation in the number 

or order of *INCLD control cards, new *INCLD 
control cards must be prepared using the pre- 
vious core map. They must specify (in order 
of occurrence in the previous map) all ICI, 
CALL, and LIBF names beginning with the 
first map entry following 

PNT SYDIR 

An alternative is to use the original *INCLD 
control cards in their original order. Addi- 
tional ICI and CALL subroutines may be speci- 
fied on following *INCLD contrpl cards. 

6. Following the rebuild process, a comparison 
of the previous Skeleton and new Skeleton core 
maps must show identical entry points (that 
is, ARG2 — see Figure 88) for those LIBF 
and CALL map entries common to both skele- 
tons. 



1. No previously included CALL or LIBF type 
subroutines may be removed from the Skele- 
ton. An in-core interrupt (ICI) or a count 
subroutine may be substituted, provided it 
has the same number of entry points and 
occupies the same relative position within 
the Skeleton as the deleted subroutine. Any 
core loads referencing the deleted subroutine 
must be rebuilt. 

2. No additional LIBF or ISS subroutine (disk 
format types 3 , 5 , and 6) may be included in 
the new Skeleton. In-core interrupt (ICI) and 
CALL (type 4) subroutines may be added pro- 
vided the patch area is large enough to contain 
the additions. 



Example of Initial Skeleton Build and Skeleton Re- 
build 

Figure 88 illustrates the general sequence of control 
cards, the Skeleton Core map, and the Interrupt 
Core Load (ICLT) map for a typical skeleton build/ 
rebuild situation. A separate interpretation of these 
maps is given at the end of this section. 
In the initial skeleton: 

• INTOl/0000 is an interrupt servicing routine for 
a process interrupt assigned to level 00, bit 00. 
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• INT02/2405 is an interrupt servicing routine 
which services a programmed interrupt on 
level 05. 

• INT03/2500 services a programmed interrupt 
on level 14. 

• SUB01 is a special user-written arithmetic 
subroutine. 

• INT04/2600 is a user-written count routine 
#00. 

• MASK and EBPRT are IBM Library Subroutines. 

The four K13 level 1 Skeleton Builder error 
messages, following the ICL Table Map, are warn- 
ings to the user that core load names PML01, 
PML02, CCL01, and CCL02 referenced by calls 
in routines (e.g., CHAIN, SPECL, QUEUE) con- 
tained in the initial skeleton have not yet been 
built, and, therefore, are not entered in FLET (see 
IBM 1800 Time -Sharing Executive System, Opera- 
ting Procedures, Form C26-3754). 

In the rebuilt skeleton: 

• No major modifications are implemented. 
Neither the Skeleton I/O nor INSKEL COMMON 
are altered. 

• Four implicit routines (and those explicit rou- 
tines referenced by these routines) are added. 
These are: 

1. SUB02 — a user-written arithmetic routine. 

2. INT05/2701 — a user-written count rou- 
tine #17. 



3. DPART and UNMK are IBM Library Sub- 
routines. 

4. These additions constitute entries to the 
ICL Table. 

Note that SUB02 and INT05/2701 cannot refer- 
ence or call any LIBF function subroutines as this 
violates the conditions stated (see Core Load Re- 
build Conditions ). 

The user should be aware that in rebuilding a 
skeleton, the control cards must be in exact order- 
correspondence with the previous skeleton so that 
routines will be loaded in the same order-sequence 
and entry points in the transfer vector remain 
valid. 



Interpretation of the Skeleton Core Map and the 
Interrupt Core Load Table (ICLT) Map 

Skeleton Core Map 

The Skeleton Builder always prints a map of the 
assembled skeleton formatted as follows: 

SKEL CORE MAP (Page Heading) 

TYPE NAME ARG1 ARG2 (Column Heading) 

Type indicates the map entry type (e.g. , LIBF, 
CALL, PNT). Up to five alphameric characters 
are allowed under NAME to describe a subroutine, 
control program, etc. (e.g., DISKN, SYDIR). 
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Control Records For Initial Skeleton Build 



//JOB 1 


X 






//XEQ SKBLD 






*INCLDINT01/0000,MASK,EBPRT,INT02/2405 


*INCLDSUB01,INT03/2500,INT04/2600. 


*CCEND 








Skeleton Core Map 






SKEL 


CORE 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


LIBF 


DISKN 


021 B 


3EBB 


LIBF 


TYPEN 


0582 


3EBE 


LIBF 


WRTYN 


0582 


3EBE 


LIBF 


PRNTN 


0A07 


3EC1 


LIBF 


CARDN 


0C71 


3EC4 


CALL 


EXIT 


1C9F 


00B6 


CALL 


LINK 


1CA1 


008E 


INSK 




0DD4 


10C1 


PNT 


SYDIR 


10C2 


3E26 


ICI 


INT01 


1F80 




ICI 


INT02 


1F91 


1005 


ICI 


INT03 


1F9E 


1100 


ICI 


INT04 


1FAF 


1200 


CALL 


MASK 


1FBA 


3E44 


LIBF 


EBPRT 


1FDC 


3EC7 


CALL 


SUB01 


207D 


3E43 


CALL 


OUTTR 


19DA 


3E42 


CALL 


CHAIN 


1BA7 


3E41 


CALL 


INTEX 


1AE1 


3E40 


CALL 


SHARE 


1C4F 


3E3F 


CALL 


SPECL 


1BEC 


3E3E 


CALL 


BACK 


1C03 


3E3D 


CALL 


EACLK 


1ED4 


3E3C 


CALL 


QUEUE 


2084 


3E3B 


PNT 


PML01 




3E2A 


CALL 


UNQ 


2146 


3E3A 


PNT 


PML02 




3E2E 


PNT 


CCL01 




3E32 


PNT 


CCL02 




3E36 


CALL 


PRT 


218C 


3E39 


PTCH 




21D6 


3E23 


ICL TABLE MAP 






LLBB 


WC/EP 


SA 


ICLT 


0000 


1F80 




1 ICC 


1005 


1F91 




1296 


1100 


1F9E 




12AC 


1200 


1FAF 




12B4 



K13 PML01 LEV.l 
K13 PML02 LEV.l 
K13 CCL01 LEV.l 
K13 CCL.02 LEV.l 
SK6, SYDIR LD NX 



Control Records For Skeleton Rebuild 

//JOB 1 X 

//XEQ SKBLD 

MNCLDINT01/0000,MASK,EBPRT, INT02/2405 
*INCLDSUB01 , INT03/2500, INT04/2600 
*INCLDSUB02,DPART,INT05/2701,UNMK 
*CCEND 

Rebuilt Skeleton Core Map 



SKEL 


CORE 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


LIBF 


DISKN 


021 B 


3EBB 


LIBF 


TYPEN 


0582 


3EBE 


LIBF 


WRTYN 


0582 


3EBE 


LIBF 


PRNTN 


0A07 


3EC1 


LIBF 


CARDN 


0C71 


3EC4 


CALL 


EXIT 


1C9F 


00B6 


CALL 


LINK 


1CA1 


008E 


INSK 




0DD4 


10C1 


PNT 


SYDIR 


10C2 


3E22 


ICI 


INT01 


1F80 




ICI 


INT02 


1F91 


1005 


ICI 


INT03 


1F9E 


1100 


ICI 


INT04 


1FAF 


1200 


ICI 


INT05 


1FBD 


1301 


CALL 


MASK 


1FCE 


3E44 


LIBF 


EBPRT 


1FF0 


3EC7 


CALL 


SUB01 


2091 


3E43 


CALL 


OUTTR 


19DA 


3E42 


CALL 


CHAIN 


1BA7 


3E41 


CALL - 


INTEX 


1AE1 


3E40 


CALL 


SHARE 


1C4F 


3E3F 


CALL 


SPECL 


1BEC 


3E3E 


CALL 


BACK 


1C03 


3E3D 


CALL 


EACLK 


1ED4 


3E3C 


CALL 


QUEUE 


2098 


3E3B 


CALL 


UNQ 


21 5A 


3E3A 


CALL 


PRT 


21A0 


3E39 


CALL 


SUB02 


21EB 


3E38 


CALL 


DPART 


21F4 


3E37 


CALL 


UNMK 


2202 


3E36 


PNT 


PML01 




3E26 


PNT 


PML02 




3E2A 


PNT 


CCL01 




3E2E 


PNT 


CCL02 




3E32 


CALL 


QIFON 


224C 


3E35 


CALL 


VIAQ 


22E6 


3E34 


PTCH 




2345 


3E1F 


ICL TABLE MAP 






LLBB 


WC/EP 


SA 


ICLT 


0000 


1F80 




11CC 


0501 


01 7A 


04C6 


UFA 


0A02 


01 7A 


04C8 


1230 


1005 


1F91 




1296 


1100 


1F9E 




12AC 


1200 


1FAF 




12B4 


1301 


1FBD 




12DA 



SK3, SYDIR LD XQ 



Figure 88. Core Map for Initial and Rebuilt Skeleton 
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ARG1 and ARG2 may contain either a four-digit 
hexadecimal number or a blank field. 

Program Name Table (PNT). 

PNT NNNNN XXXX YYYY 

The word count and disk address of the core load 
named NNNNN which is referenced within the 
skeleton are assigned to locations YYYY and 
YYYY+1 of the skeleton PN Table. The first PNT 
entry is always the System Director where NNNNN 
= SYDIR and XXXX is the initial core location of 
the ICL Table pointer block which is identified in 
the System Director listing by the symbolic name 
-- COMA. The XXXX field is blank for all re- 
maining PNT entries. 

In-c ore-with-Skeleton Interrupt (ICI). 

ICI NNNNN XXXX LLBB 

The entry point to the in-core-with-Skeleton inter- 
rupt servicing routine named NNNNN is at absolute 
location XXXX. LLBB designate the interrupt level 
and bit position within the ILSW for that associated 
level. 

If LL is less than the number of interrupt levels 
(K) defined for the system, NNNNN is assigned to 
service the process interrupt on PISW bit position 
BB of level LL. 

If LL = K or LL = K+l, NNNNN is assigned to 
service a programmed interrupt on level BB or 
BB+14 respectively. Note that BB is now used as 
a level designation. 

If LL = K+2 or LL = K+3, NNNNN has been 
designated as count subroutine BB or BB+16 re- 
spectively. Note that BB is now used as a count 
subroutine number in the range 0-31. 

For an ICI assigned to level on PISW bit posi- 
tion 0, ARG2 will be printed as a blank field. 

Library Function Subroutines (LIBF). 

LIBF NNNNN XXXX YYYY 

The LIBF-type subroutine entry point named 
NNNNN is at absolute location XXXX of the skele- 
ton. The corresponding three-word transfer vec- 
tor entry point will be at location YYYY in variable 
core. 



CALL-type Subroutines (CALL). 

CALL NNNNN XXXX YYYY 

The CALL-type subroutine entry point named 
NNNNN is at absolute location XXXX of the skele- 
ton. The indirect entry point is at location YYYY 
of the Skeleton Executive Branch Table (EBT). 

INSKEL COMMON (INSK). 

INSK XXXX YYYY 

The low core storage boundary of INSKEL COM- 
MON is at absolute location XXXX of the skeleton. 
The high boundary is at location YYYY. 

Patch Area (PTCH). 

PTCH XXXX YYYY 

The patch area (that is, unused core locations) 
extends from the absolute location, XXXX, of the 
skeleton through location YYYY. 

COMMON (COMM). 

COMM XXXX YYYY 

If any included subroutines contain references to 
COMMON, allocation is made between absolute 
locations XXXX and YYYY, using the standard 
method. It should be noted that these locations 
are in variable core; allowances must therefore 
be made in all core loads for overlapping results. 

Interrupt Core Load Table (ICLT) Map 

The ICL Table map is printed to reveal any inter- 
rupt assignments made in the skeleton ICLT. Its 
format is as follows: 

ICL TABLE MAP 

LLBB WC/EP SA ICLT (Column 

Heading) 

The interrupt level and bit assignment are indi- 
cated by a four-digit hexadecimal number under 
LLBB. The two high-order digits contain the level; 
the two low-order digits represent the bit assignment. 
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If the entry is an in-core -with-Skeleton routine, addresses of any interrupt core loads are re- 

the WC/EP column will contain the hexadecimal en- tained from the old ICLT. Their interrupt 

try point to this routine. The SA field will be blank. assignments are indicated in the LLBB column. 

The ICL Table absolute core location in which the The WC/EP and SA columns will contain their 

entry point is placed is indicated in the ICLT column. word counts and disk addresses. The corires- 

When rebuilding the skeleton with the SAVE ponding ICLT absolute core location is in the 

ICL TABLE option, word counts and sector ICLT column. 
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PROGRAMMING TECHNIQUES 



To broaden the scope of this manual, and to facilitate 
its use by individuals of divergent backgrounds and 
experience, selected material emphasizing recom- 
mended practice and technique in the implementation 
of the IBM 1800 Time Sharing Executive System are 
presented in this section. This material directly 
supplements the concepts discussed so far in the 
text. 

A separate chapter ( Basic Concepts of Data 
Acquisition and Process Control Systems ) is included 
for a two- fold purpose: (1) as an introduction to the 
TSX Sample System, and (2) to acquaint the inexper- 
ienced reader with the field of data acquisition and 
process control systems. It is not intended as an 
exhaustive study, and the reader is referred to 
further sources of information on this vast subject. 
The more experienced reader may prefer to scan 
this portion of the section as refresher material, or 
to skip it entirely. 

The final chapter, TSX Sample System, is a com- 
prehensive step-by- step example of a working TSX 
on-line system which touches on every aspect of TSX 
system concepts, design, and usage. 



Subroutine Source Deck 



//DUP 
*STORE 

Call Subroutines 



NAME 



A subroutine that is called by a CALL statement is 
linked to via a long BSI instruction. For example, a 
FORTRAN source statement 

CALL SUB (I, J, K, 101) 

or an Assembler language calling sequence 



CALL 


SUB 


DC 


ADDRI 


DC 


ADDRJ 


DC 


ADDRK 


DC 


ADCON 



appears in core at execution time as 



WRITING ASSEMBLER LANGUAGE SUBROUTINES 

This chapter provides guidance to the user in the 
assembly and specification of user-written subrou- 
tines included either as additions or modifications to 
the TSX system. User-written assembler language 
subroutines must follow the writing specifications 
outlined below. 

The subroutine source statements shown in the 
following examples should be preceded and followed 
by the following control cards for the assembly 
process. 

//JOB 

//ASM 

*LIST 

*PRINT SYMBOL TABLE 



BSI 
DC 
DC 
DC 
DC 



SUB 

ADDRI 

ADDRJ 

ADDRK 

ADCON 



where ADDRI, ADDRJ, and ADDRK are the core 
addresses at which the variables I, J, and K are 
stored, and ADCON is the core address where the 
constant, 101, is stored. 

Note that most subroutines entered by an 
Assembler language calling sequence expect the 
constants themselves to appear in the calling se- 
quence rather than the address of the constants. 
Therefore, not all subroutines entered by a CALL 
can be called from a FORTRAN program. 

The following example illustrates how to define 
the entry point, save the contents of the registers, 
get the parameters, and return to the calling pro- 
gram. 
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LIBF SUBROUTINES 

The source statements for subroutines that are 
called by a LIBF statement must be preceded by a 
LIBR statement. 

At execution time, the LIBF call appears as a 
BSI instruction indexed by XR3 and with a displace- 
ment that reflects the transfer vector entry for the 
subroutine being called. XR3 contains the address 
of the transfer vector. The transfer vector entry 
contains a long BSI instruction to the subroutine 
entry point. 

The following example illustrates a LEBF sub- 
routine and shows how to define the entry point, 
save the machine status, get the address of the 
parameter list, and return to the calling program. 
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INPUT/OUTPUT SUBROUTINES 

The procedures for writing input/output subroutines 
are similar to those for CALL or LIBF subroutines, 
except that an ISS statement is used to define the en- 
try of the call section of the routine; also, the inter- 
rupt entry points must be defined. 

The basic identification for the interrupt entry por- 
tion is the IAC code. There is a unique IAC code for 
each ILSW bit that is turned on by an I/O interrupt. 
At system generation time, the user defines the IAC 
codes and their corresponding ILSW bit. The same 
IAC code must be used when writing an I/O subroutine. 

As stated previously, an ISS statement is used 
to define the call entry point (only one call entry 
point is permitted). If the subroutine is to be called 
by a LIBF statement, the ISS statement must be 
preceded by a LIBR statement. The LIBR state- 
ment is omitted if the subroutine is to be called by 
using a CALL statement (the CALL statement 
method must be used if the subroutine is to be called 
from a FORTRAN program). Following the ISS 
statement, there must be a pair of DC statements 
for each interrupt entry point. The first DC state- 
ment must define the IAC code for that entry, and the 
second DC must define the address of the interrupt 
entry point. This is followed by an ORG *-X where 
X is the number of DC statements. 

The following is an example of how a typical ISS 
subroutine is written. 
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PROGRAM LISTING NO. 7: SAMPLE CARD I/O ROUTINE 



0000 



03059100 



0000 0002 

0001 1 003C 

0002 0011 

0003 1 003F 
0004 



0000 0000 

0001 00 448000AC 



HDNG SAMPLE CARD I/O ROUTINE 

* # # # # # # >i< # * * jft $ ijc ale* # $ # * # # >;< * * # # >:< >;< >;< >;< # * * # # >:o:< >;< >:oj< # * * # >:< * >;< * * # 

* SAMPLE CARD I/O ROUTINE * 

jjufrsjt + ijcifcijdjoioitjitslc* ****** **************************** **** 

* * 

* THIS SUBROUTINE IS A SAMPLE OF THE TSX I/O * 

* ROUTINES. IT IS CALLED VIA LIBF. THE CALLING * 

* SEQUENCE IS * 



CONTROL PARAMETER 
I/O AREA ADDR 



CONTROL PARAMETER IS COMPRISED OF 4 HEX DIGITS 
ARE USED. 



LIBF 


CARD 


DC 


/XOOY 


DC 


AREA 



OF WHICH ONLY X AND Y 
X EQUAL 



EQUAL 1 
EQUAL 2 



EQUAL 
EQUAL 1 



TEST FUNCTION-DO NOT 

INCLUDE AREA PARA 
READ FUNCTION 
PUNCH FUNCTION 

USE FIRST 1442 
USE SECOND 1442 



* EXTERNAL REFERENCES TO FIXED AREA OF CORE * 

* # 

* WORD FUNCTION * 

* * 

* 7 GENERAL I/O BUSY INDICATOR * 

* 46 USER MASK IOCC LEVELS 0-13 * 

* 48 USER MASK IOCC LEVELS 14-23 * 

* 50 MASK ALL IOCC LEVELS 0-13 * 

* 52 MASK ALL IOCC LEVELS 14-23 * 

* 55 LOCATION WHERE TVSAV PUTS RET ADDR * 

* 90 I/O SUBROUTINE ENTRY TO MIC * 

* 172 ENTRY POINT TO TVSAV * 

* 173 ENTRY POINT TO TVEXT * 

* * 

* NOTE THAT ON A PUNCH FUNCTION IT IS ASSUMED * 

* THAT THE USER HAS THE END BIT SET IN THE * 

* LAST WORD TO BE PUNCHED. * 

* * 

* * * if if * * * * * * if * * * * * * * >|< * * * * * * * * * * * * * * * * * >!< * * * * * * * * * * * * * 



LIBR 
ISS 



DC 
DC 
DC 
DC 

ORG 



2 CARD 



2 

INT1 

17 

INT2 

*-4 



SIGNIFIES THIS IS A LIBF 

2 IS THE NO. OF INT 
ENTRY POINTS 
AND CARD IS LIBF 
ENTRY POINT 

1442-1 IAC CODE 

1442-1 INT ENTRY POINT 

1442-2 IAC CODE 

1442-2 INT ENTRY POINT 

CAUSES OVERLAY OF LD INFO 



CALL SECTION OF SUBROUTINE 



CARD DC 
BSI 




172 



0003 


00 


65800037 




LDX 


11 


55 


0005 


01 


6600005A 




LDX 


L2 


CD1 


0007 





C100 




LD 


XI 





0008 





4804 




BSC 




E 


0009 





7208 




MDX 


2 


CD2-CD1 


OOOA 





180C 




SRA 




12 


OOOB 


01 


4C200012 




BSC 


L 


CONTN, Z 


OOOD 





C204 




LD 


X2 


BUSY 


OOOE 





4818 




BSC 




+- 


OOOF 





7101 




MDX 


1 


1 


0010 





7101 




MDX 


1 


1 


0011 





7025 


* 


MDX 




OUT 








FUNCTION IS NOW 


0012 


00 


0C000032 


CONTN 


XIO 


L 


50 


0014 


00 


0C000034 




XIO 


L 


52 


0016 





C204 




LD 


X2 


BUSY 


0017 


01 


4C18001F 




BSC 


L 


READY, + 


0019 


00 


0C00002E 




XIO 


L 


46 


001B 


00 


0C000030 




XIO 


L 


48 


001D 





1000 




NOP 






001E 





70F3 




MDX 




CONTN 


001F 





0A04 


READY 


XIO 


X2 


SENSE 



LIBF ENTRY POINT 
CALL TVSAV TO SAVE MACH- 
INE REGISTERS AMD STATUS. 
ALSO SETS WORD 55 TO POINT 
TO FIRST PARAMETER — RETURN 
ADDRESS. 

XR1#LIBF PARAMETERS 
XR2#1442-1 DEVICE TABLE 
DETERMINE 1442 TO BE USED 
SKIP IF FIRST 1442 
INCREMENT TO POINT TO CD2 
IS THE FUNCTION A TEST 
BRANCH IF 'NOT A TEST 
GET BUSY INDICATOR 
SKIP IF ON 

INCREMENT RET ADDR TO SKIP 
TWO WORDS ON RET TO USER 
BRANCH TO SET UP EXIT 

READ OR PUNCH 
MASK LEVELS 0-13 
MASK LEVELS 14-23 
GET BUSY INDICATOR 
BRANCH IF IT IS TURNED, OFF 
UNMASK TO USER MASK TO 
ALLOW CARD OP-COMPLETE 

SEE IF ROUTINE STILL BUSY 
LOOP UNTIL 1442 IS IN A 



CRDOO 000 
CRD00010 
CRD00020 
CRD00030 
CRD00040 
CRD00050 
CRD00060 
CRD00070 
CRD00080 
CRD00090 
CRD00100 
CRD00110 
CRD00120 
CRD00130 
CRD00140 
CRD00150 
CRD00160 
CRD00170 
CRD00180 
CRD00190 
CRD00200 
CRD00210 
CRD00220 
CRD00230 
CRD00240 
CRD00250 
CRD00260 
CRD00270 
CRD00280 
CRD00290 
CRD00300 
CRD00310 
CRD00320 
CRD00330 
CRD00340 
CRD00350 
CRD00360 
CRD00370 
CRD00380 
CRD00390 
CRD00400 
CRD00410 
CRD00420 
CRD00430 
CRD00440 
CRD00450 
CRD00460 
CRD0047.0 
CRD00480 
CRD00490 
CRD00500 
CRD00510 
CRD00520 
CRD00530 
CRD00540 
CRD00550 
CRD00560 
CRD00570 
CRD00580 
CRD00590 
CRD00600 
CRD00610 
CRD00620 
CRD00630 
CRD00640 
CRD00650 
CRD00660 
CRD00670 
CRD00680 
CRD00690 
CRD00700 
CRD00710 
CRD00720 
CRL/00730 
CRD0074C 
CRD00750 
CRD00760 
CRD00770 
CRD00780 
CRD00790 
CRD00800 
CRD00810 
CRD00820 
CRD00830 
CRD00840 
CRD00850 
CRD00860 
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0020 01 4C04001F 

0022 C000 

0023 0204 

0024 C100 

0025 180C 

0026 01 4C040030 

0028 C101 

0029 0202 
002A 0A02 
002B 00 74010007 
0020 1000 
002E 7101 
002F 7007 



0030 





C101 


00 31 





D200 


0032 





OAOO 


0033 


00 


74010007 


003b 





1000 


0036 





7101 


0037 





7101 


0038 


00 


6E000037 



003A 00 448000AD 



003C 01 6600005A 
003b 7002 



003F 01 66000062 



0000 



005A 





0000 


005B 





1600 


005C 





0000 


005D 





1500 


0056 





0000 


005F 





1700 


0060 





0000 


0061 





1701 


0062 




0000 


0062 





0000 


0063 





8E00 


0064 





0000 


0065 





8D00 


0066 





0000 


0067 





8F00 


0068 





0000 


0069 





8F01 



0000 
0002 
0004 
0004 
0006 
006A 



BSC L R-EAOVjE 
LD * 

STQ X2 BUSY 

LD XI 
SRA 12 

BSC L READ.E 
FUNCTION IS PUNCH 



LD 


XI 1 


STO 


X2 PH 


XIO 


X2 PH 


MDX 


L 7,1 


NOP 




MUX 


1 1 


MDX 


OUT 


FUNCTION IS A READ 


LD 


XI 1 


STO 


X2 RD 


XIO 


X2 RD 


MDX 


L 7,1 


NOP 




MDX 


1 1 


SETUP TO RETURN TO 


MDX 


1 1 


STX 


L2 55 
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READY CONDIT ION 

TURN BUSY INDICATOR ON 

TO INDICATE DEVICE BEING 

USED 

GET FUNCTION PARAMETER 

TEST FOR READ OR PUNCH 

BRANCH IF FUNCTION IS READ 

GET SECOND PARAMETER 
PUT AREA PARA IN PH IOCC 
START PUNCHING A CARD 
INCREMENT GEN I/O BUSY IND 

INCREMENT RET ADDR 
GO TO EXIT 

GET SECOND PARAMETER 
PUT AREA ADDR IN RD IOCC 
START READING A CARD 
INCREMENT GEN I/O BUSY IND 

INCREMENT RET ADDR 

USER 

INCREMENT RET ADDR 

55 NOW CONTAINS THE RETURN 

ADDRESS TO USER 

RETURN TO USER VIA TVEXT 



INTERRUPT SECTION CF SUBROUTINE 



0041 





0A06 




0042 





1002 




0043 


01 


4C100051 




0045 





3000 




0046 





0A04 


READX 


0047 


01 


4C040046 




0049 





C200 




004A 


01 


4C18004E 




004C 





OAOO 




0040 





7001 




004E 





0A02 


REDOP 


004F 


00 


4C80005A 




0051 





1010 


DONE 


0052 





D200 




0053 





D202 




0054 





D204 




0055 


00 


74FF0007 




0057 





1000 




0058 


00 


4C80005A 





LOX L2 CD1 
MDX *+2 



INT2 LDX L2 CD2 



XIO X2 SENSR 

SLA 2 

BSC L DONE,- 

WAIT 

XIO X2 SENSE 

BSC L READX, E 

LD X2 RD 

BSC L REDOP, +- 

XIO X2 RD 

MDX *+l 

XIO X2 PH 

BSC I 90 

SLA 16 

STO X2 RD 

STO X2 PH 

STO X2 BUSY 

MDX L 7,-1 

NOP 

BSC I 90 



XR2#1442-1. THIS IS 

INTERRUPT ENTRY POINT FOR 

1442-1 

XR2#1442-2. THIS IS 

INTERRUPT ENTRY POINT FOR 

1442-2 

SENSE DSW WITH RESET 

TEST FOR ER*OR 

BRANCH IF NO ERROR 

WAIT FOR USSR TO RELOAD CD 

LOOP UNTIL 1442 IS IN A 

READY CONDITION 

TEST FOR LAST FUN A RD 

BRANCH IF NOT READ 

REDO READ 

EXIT TO MIC 

REDO PUNCH 

RETURN TO MIC 

CLEAR ALL INDICATORS 

CLEAR READ IOCC 

CLEAR PUNCH IOCC 

CLEAR BUSY INDICATOR 

DECREMENT GEN I/O BUSY IND 

RETURN TO MIC 



DEVICE TABLES FOR 1442-1 AND 1442-2 



NOTE THAT THE NO. 
DISPLACEMENT OF T 
OF THE DEVICE TAB 
BSS E 



DC 





DC 


/1600 


DC 





DC 


/1500 


DC 





DC 


/1700 


DC 





DC 


/1701 



IN COLUNM 71 IS THE 
HAT WORD FROM THE START 
LE 

DEVICE TABLE MUST BEGIN ON 

AN EVEN ADDR BECAUSE OF 

IOCC. 

DEVICE TABLE FOR 1442-1 

READ IOCC 



BSS E 

DC 

DC /8E00 

DC 

DC /8D00 

DC 

DC /8F00 

DC 

DC /8F01 



PUNCH IOCC 
BUSY INDICATOR 
SENSE IOCC 

SENSE/RESET IOCC 

DEVICE TABLE FOR 1442-2 
READ IOCC 

PUNCH IOCC 
BUSY INDICATOR 
SENSE IOCC 

SENSE/RESET IOCC 



DEVICE TABLE EQUATES 



KD 


EQU 





PH 


EQU 


2 


BUSY 


EQU 


4 


SENSE 


EQU 


4 


SENSR 


EQU 
END 


6 



READ IOCC 
PUNCH IOCC 
BUSY INDICATOR 
SENSE IOCC 
SENSE/RESET IOCC 



CRD00870 
CRD00880 
CRD00890 
CRD00900 
CRD00910 
CRD00920 
CRD00930 
CRD00940 
CRD00950 
CRD00960 
CRD00970 
CRD00980 
CRD00990 
CRD01000 
CRD01010 
CRD01020 
CRD01030 
CRD01040 
CRD01050 
CRD01060 
CRD01070 
CRD01080 
CRD01090 
CRD01100 
CRD01110 
CRD01120 
CRD01130 
CRD01140 
CRD01150 
CRD01160 
CRD01170 
CRD01180 
CRD01190 
CRD01200 
CRD01210 
CRD01220 
CRD01230 
CRD01240 
CRD01250 
CRD01260 
CRD01270 
CRD01280 
CRD01290 
CRD01300 
CRD01310 
CRD01320 
CRD01330 
CRD01340 
CRD01350 
CRD01360 
CRD01370 
CRD01380 
CRD01390 
CRD01400 
CRD01410 
CRD01420 
CRD01430 
CRD01440 
CRD01450 
CRD01460 
CRD01470 
CRD01480 
CRD01490 
CRD01500 
CRD01510 
CRD01520 
CRD01530 
CRD01540 
CRD01550 
CRD01560 
CRD.01570 
CRD01580 
CRD01590 
CRD01600 
CRD01610 
CRD01620 
CRD01630 
CRD01640 
CRD01650 
CRD01660 
CRD01670 
CRD01680 
CRD01690 
CRD01700 
CRD01710 
CRD01720 
CRD01730 
CRD01740 
CRD01750 
CRD01760 



184 



PROGRAMMING SUBROUTINES USING 
REENTRANT CODING 

NEED FOR REENTRANT CODING 

One of the basic problems that arises in multi-level 
programming is requirement of the same subroutine 
by different levels of operation. 

For example, the computer is servicing a main- 
line program which is executing a square- root sub- 
routine when an external interrupt occurs. The 
hardware interrupt will automatically branch to an 
address which will allow servicing of the interrupt. 

The program that services the interrupt may also 
require use of a square-root subroutine. If a method 
of reentrant coding were not used, the identical 
square- root subroutine would have to be in core 
storage twice (once for each program that called it); 
otherwise, the intermediate results which are needed 
when the computer returns to complete the mainline 
program would be destroyed by the interrupt program. 

CONCEPT OF LEVEL WORK AREAS 



If the subroutine is reentered, different effective 
addresses are generated for each such indexed 
operand, and the reentry problem is solved. 

The following sequence of instructions illustrates 
how the contents of the A- register are saved in 
TEMP in the level work area and later restored by 
the instruction at LOAD: 



lob.1 




Op.rollon 
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I 




<*—.*-*. 


LW,A, 




£,<3,U, 










i.O,*, , 


i i i 




, , , , , , 


J L 1 I I J I 1 . . . . 1 . I " i I 


T,eMP 






E.Q.U 












ss, , 




-J- A 1 




1 i I I 1 i 


1 i J 1 1 1 . 1 1 i i 1 1 i 1 1 1 1 


I 


















1 , , 










,,,,,, 


,,,,,.,,,,,,,,,, 


, 






L.OX 






I 


I 




i-,V/,A, 












SLQAJSi .1*1* 




»•»■,*,£■ 






S.T.O 








1 




t,£mp 












s.A.v.er. ,A- 








i # l 
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, I , 
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i , , 
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, , i i , i i i i i , , i i i i i i 


<-,0,A,D 






L,D, 








1 




r.eMf 












K.E.S.T.OJi.e 


A- yRS&J ,S,T,E,K ,,,,,,, 




















i . i 















1 , 1 , , . , 1 , , , 1 1 1 , 1 . 1 



Should the subroutine be interrupted and re- 
entered, there will be no storage conflicts, since 
the contents of LWA changes with each interrupt 
level. Hence, the instructions at STRE and LOAD 
reference different effective addresses for each 
interrupt level. 



To allow one subroutine to be entered at any time and 
from any interrupt level, without loss of intermediate 
results, a method of reentrant coding using level 
work areas is used. 

Reentrant coding is defined as coding which 
allows a program to be entered and executed from 
different levels without destroying the intermediate 
results. 

The IBM 1800 TSX System provides features which 
facilitate the coding of reentrant subroutines. 

Each interrupt level specified by the user is pro- 
vided with a level work area of 104 locations, which 
are reserved for the exclusive use of programs 
operating on that priority level. 

The first 62 of these locations are reserved for 
specific routines (MIC, QZSAV, etc.) while the re- 
maining 42 locations are available to allow other 
subroutines (arithmetic, functional, etc.), to main- 
tain their ability to reenter. 

The start address of the level work area for any 
priority level always appears in location LWA (fixed 
location 104^0 = 68i 6 ). If an index register is loaded 
with the contents of this location, and all references 
to temporary storage locations are indexed, 42 
temporary storage locations are made available to 
the subroutine for each level it may be operating on. 



MECHANISM FOR REENTRANT CONTROL 

For each interrupt serviced, MIC (Master Interrupt 
Control program) saves and subsequently restores 
the contents of the A- and Q-registers, index regis- 
ters, machine status, and locations WK4 (54-^q = 36 16 ) 
and WK5 (55 10 = 37 16 ). MIC also sets LWA to the 
correct level work area address for each interrupt 
level. 

Since locations WK4 and WK5 are saved by MIC 
for each interrupt level, these locations may also be 
used for temporary storage by reentrant subroutines, 
e.g. , loading and storing of index registers. Fur- 
thermore, these locations are also used for other 
purposes, as explained below. 



Protecting Entry and Return Addresses 

The first location of a callable subroutine is set by a 
BSI instruction. As with all fixed locations upon re- 
entry, this location may be changed and the return 
address may be lost. The TSX System supplies two 
pairs of subroutines which provide a method of 
protecting the return address. They also perform 
several additional functions useful for subroutines. 
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Subroutines Referenced by 


a CALL Instruction 




*" 




Op.ralion 




F 


T 




Operandi & R.rnarkj 


9X.S.A.V 




£,q.u. 










i.5,4. , , 








i , , i , , , , , , , 


QX.E.X.T 




e.q.u 












ltS.S. . , 






, i , , 


,,,,,,,, , , , 


















■ , , , i 






i i i , 


, , , 


5,U,B,RT 




ee^j 












0. , , , , 






,£",<V,7,* 


Yi ,r;0, ,C,A,L,L, ,K,OMT.f J*.E. , 






B.S.I 






I 






9,Z.SAV, 




, 


CA.L.i. 


,r,o, ,<p 1 z,s,A,v, 


I 




• 

















-J-.1_J 


■ , ,- , 


,,,,,,,, , 






,•, 



















i . i i 


, , , 


, 1 




<*i 






















£;x,/,7-, 




B.SJ 






I 






9,Z,£,X,T, 






,£,X,/,T 


xF.K.oM ,S,t/S^,o,c/,r,/M£, , , 


















■ . i i i 






i , , i 


, , i , 



The QZSAV subroutine saves the contents of in- 
dex registers 1, 2, and 3, the A- and Q-registers 
and machine status and places the return address in 
location WK4 (54 10 ™ 3®iq)- ^ addition, index 
registers 1 and 3 are set to the first location of the 
level work area, and index register 2 is set to 

127 10 = 7F 16' 

The QZEXT subroutine restores the index regis- 
ters, machine status, and A- and Q-registers and 
returns control to the calling routine via a BSC I WK 4. 
The address set in WK4 by QZSAV must, therefore, 
be incremented by 1 for every parameter following 
the CALL. 



Subroutines Referenced by a LIBF Instruction 

For subroutines referenced by a LIBF (1-word BSI) 
instruction through the transfer vector: 



TiV&XtT 



5,U,B,K .T 



BJLl 



B_J5J_ 



LJiZ. 



LilA 






ZiYo^jsj 






*LLJLi^iFiXjQjMi_ a3M&£iQiUJUJ<i£'j.-l- 



The TVSAV subroutine saves the contents of 
index registers 1 and 2, the A- and Q-registers, and 
machine status and places the return address in 
WK5 (55 10 = 37 16) # ■^ n Edition, index registers 1 
and 3 are set to the first location of the level work 
area, and index register 2 is set to 127 10 = 7F 16> 

The TVEXT subroutine restores the contents of 
index registers 1 and 2, A- and Q-registers, and 
machine status. Index register 3 is set to the 
transfer vector location, and control is returned to 
the calling routine via a BSC I WK5. The address 
set in WK5 by TVSAV must, therefore, be incre- 
mented by 1 for every parameter following the LIBF. 



Other Considerations 

It should be understood that the use of QZSAV or 
TVSAV does not obviate careful logic control. If 
parameters follow the call to the subroutine, it is 
the responsibility of the subroutine to obtain these 
parameters and to adjust WK4 or WK5. 

If subroutines are nested, that is, one subroutine 
calls another, care must be exercised to save and 
restore the storage locations used by QZSAV and 
TVSAV across the nested call, as well as the return 
address in WK4 or WK5. Furthermore, nested sub- 
routines must be planned so that the same locations 
in the level work area are not used by more than one 
subroutine. 

Note that TVSAV, TVEXT, QZSAV, and QZEXT 
are referenced by indirect BSI instructions and not 
by CALL statements. The call to TVSAV or QZSAV 
must be the first instruction executed in (and im- 
mediately following) the entry location, as illustrated. 



MASKING OUT THE INTERRUPTS 

Another method of providing reentrant coding is to 
prevent the interrupts from being recognized. 

In Assembler language, it is possible to use the 
XIO command with the IOCC-masking words pro- 
vided by the TSX system. To mask all interrupt 
levels completely, the following instructions may be 
executed: 



Labol 




Operation 




f 


T 




Operands & Remarks 


M t S,K.l. 




EQ.U, 










5,0 L.O.CA.T./.OMS, ,0,f 


tf,5 ( <,2, 




E.Q.U, 










5,2 , MAS.K, ,I,0,C,C, ,l"/0,/?,«9,S 


■ •■I 














, 


.... 




x,/,o, 




L 






*f,S,*-,X, , iAf,A,5,<, .A.t-.L, ,/,MT,£,XA,t/,P.T, , ■ 


. i . i 




X.I.O, 




L 






M,S,K,2 L,e,V,£,L,S , 


I... 

















To restore the interrupt mask status, the following 
instructions may be executed: 



Labol 




r raMo : 




F 


T 




Operands & Remarks 


tf.S.A'.S, 




e,Q.o, 










4-.G> ,C,0,C,A,r,/.OMS, ,O.F, M,A/.MA,S,K, , 


AfS./C.-f, 




E.Q.U, 










4,8 X.O.CC, MOX.OS 


ill! 




, . , 










,,,,,,,,,,,,,,, 






x,/,o, 




L 






M.S.K3 , J?,e,S,T,0,K,e l ./W.E-JZXt/.P.T, , , , 


t I , , 




x,i,o, 




L 






*l,S,Af,4, , , ST,A,T,£/,S 


III. 




i i i 













This particular method of reentrant coding is ef- 
fective and permissible, but is, in general,, undesir- 
able. If interrupts are prevented from being recog- 
nized as may occur, the philosophy of the IBM 1800 
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interrupt system is defeated. However, for short 
sequences of instructions, the method of masking out 
the interrupts may be the fastest means of obtaining 
reentrant coding. 



or data. The TSX system must be in the off-line 
(nonprocess) mode. To call the absolute loader, load 
or restart TASK and set sense switch on. 



PROGRAMMING NOTES 



PROGRAM/DATA FORMAT 



The following examples illustrate the different ap- 
proaches that may be used to write reentrant subrou- 
tines, and to explain the need for WK4 and WK5 
(words 54 and 55 of the Fixed Area in core storage). 
These words are saved by MIC in the same manner 
that the accumulator and certain index registers are 
preserved during the handling of an interrupt. 

Both examples depict a method of storing what is 
contained at the effective address reached by an 
index register plus its displacement, loading that 
value into another index register, and be reentrant. 



Label 




Operation 




F 


I 




Operands & Remarks 


*; ,A/,0,V 
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K 
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The User programs and data must be assembled ab- 
solute and origined above the last address of TASK. 
The object deck must be of the relocatable format 
type, i. e. , compressor output, not core image. The 
execution address on the end-of-program card must 
be the address of the first user instruction if the 
program is to be executed, and must be the address 
of the program word count if the program is to be 
stored on disk. No LIBFs or CALLs are allowed in 
the program, but any TASK subroutine (DISKN, 
TYPEN, etc.) can be called as defined in TASK I/O 
Subroutines. The TASK object program set is an 
example of programs designed to run under the 
absolute loader. 

NOTE: When executing user- written absolute pro- 
grams under TASK, it is best to use an off-line 
cartridge, or a cartridge that does not contain the 
TSX system , so that TSX system areas which are not 
file protected are not destroyed. For example, 
TASK uses sectors 05C0 and up for buffering of 1053 
messages. The upper limit of this area was estab- 
lished by the user at TASK assembly time. 



The source deck format for executable programs 



is 



ABS 
ORG 
START LD 



ABC is a core 
ABC address above the 
last TASK address 
(see NOTE below) 



User's 
Program 



END 



START 



WRITING USER- PROGRAMS FOR EXECUTION 
UNDER THE TASK ABSOLUTE LOADER 

The TASK Absolute Loader can be used to load pro- 
grams from cards to core for execution under TASK 
or for the storing on disk of user- written programs 



The source deck format for data or programs 
stored on disk is 

ABS ABC is a core 

ORG ABC address above the 

last TASK address 
(see NOTE below) 
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START 



DC 
DC 



A-ST ART- 
SEC AD 



SECAD is the 
first sector ad- 
dress where the 
program is to 
be stored. 



Manual Mode 

If data switch 15 is off, the absolute loader operates 
in the manual mode. After the program has been 
loaded to core, the following message is printed. 

DATA SW ON LD DISK OFF EXECUTE 



User's 

Program/ 

Data 



Set data switch off and press console START to 
execute the program just loaded. Set data switch 
on and press Console START to write the program 
or data to disk. If the program or data is written 
to disk, the absolute loader starts reading the next 
program in the card reader into core after perform- 
ing the disk write function. 



EQU 
END 



* 
START 



NOTE: To insure that the program is always above 
the end of TASK, let ABC be greater than or equal 
to /FIFO. The highest address of the program must 
be less than or equal to /FFFF. 



It is the user's responsibility to recall the data 
or program from the disk. 



ABSOLUTE LOADER OPERATION 

When TASK has been reloaded or restarted, the 
following message is printed. 

TASK 1800 TSX 

SEN SW ON FOR ABSOLUTE LOADER 
SEN SW 1 ON FOR NONPROCESS MONITOR 
SEN SW 2 ON FOR SKELETON BUILDER 

1. Set Sense switch on. 

2. Place the program to be loaded in the card read 
punch hopper. A stacked input is allowable. 

3. Press reader START. 

4. The user now has the option of selecting manual 
or automatic mode before pressing Console 
START. 



Automatic Mode 

If data switch 15 is on, the absolute loader operates 
in the automatic mode. After loading the user's 
program, the absolute loader executes it unless the 
control card illustrated below has been placed in 
front of the user's program. The format of the con- 
trol card is: 

column 1 = 8 

column 2 = + 

column 4 = 9 

column 13 = 1 

all other columns = blank 

The user can assemble this control card in his object 
deck by placing the two source cards shown below 
right after the ABS card in his source deck, 

ORG 40 
DC 1 



If the program is loaded in automatic mode and the 
control card has been included, the program will be 
stored on disk and the next program in the reader 
will be loaded. 

The following (Program Listing No. 8) is an 
example of the loading and execution of an absolute 
80-80 program using the TASK Absolute Loader. 
Note that the program is assigned for the upper 4K 
of core. The ABS card is used to indicate that this 
is an absolute assembly. The start address is pres- 
ent in the END statement. 
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PROGRAM LISTING NO. 8: TASK ABSOLUTE PROGRAM FOR DOING AN 80-80 LIST OF CARDS ON THE 

LIST PRINTER 



// JOB 

// ASM LIST 

*LIST 

* PUNCH 

*PRINT SYMBOL TABLE 



0000 
007D 
0030 
003A 
003B 
00A6 
0020 
0068 



ABS 



:*>:<# # ##$$#44 ; 



:< * ** * * >!-- * * * >,■< * s;< # >'f >'f * * * A~ 



LSTPT 

CARDN 

HOLEB 

EBPRT 

$LORG 

CIND 

$TVWK 



! * * >'f >',! : 

ORG 
EOU 
EOU 
EOU 
EOU 
EOU 
EOU 
EOU 



ABSOL 
L I 



>;< i'f a >;-- * 
/F 
12 
61 
58 
59 
16 
32 
10 



UTE PROGRAM FOR DOING AN 80-80 
ST OF CARDS ON THE LIST 
PRINTER. 

>!< ff. & >jc y'f. # %. %i i^ %c ■>',<. s',c ■%. >|< ;',! %< :•; %z # i\z >[< s[< $z ?fi ^ ?,t >',c >^ >|< ^ sfe >|< ;|< jJj # 

1F0 PLACE IN UPPER 4K 

5 LIST PRINTER ENTRY POINT 
CARDN ENTRY POINT 
HOLEB ENTRY POINT 
EBPRT ENTRY POINT 

6 LIST PT DEVICE TYPE IND 
CD IND ON INT LEV WK AREA 

4 INT LEV WK AREA LOC ADDRES 



FIFO 
F1F2 
F1F3 
F1F4 
F1F6 
F1F8 
FIFA 
F1FB 
F1FD 
FIFE 
F1FF 
F200 
F202 
F203 
F204 
F206 
F207 
F208 
F209 
F20A 
F20C 
F20E 
F210 
F211 
F212 
F214 
F215 
F216 
F217 
F218 
F219 
F21I3 
F21C 
F21E 
F21F 
F220 
F221 
F222 
F224 
F225 
F227 
F228 
F229 
F22A 
F22B 
F22C 
F22D 
F22F 
F230 
F231 
F232 
F233 
F235 
F236 
F237 
F239 
F23A 
F23B 
F23C 
F230 
F23F 
F241 
F242 
F243 
F244 



00 67R00068 



COOO 
D320 
00 C40000A6 
00 4C08F1FB 
00 4480007D 
3100 
00 4480003D 
1000 
F291 
0000 



00 4480003D 



0000 
70FC 
00 4480003A 
0000 
F292 
F292 
0050 
00 C40000A6 
00 4C20F24F 
00 4480007D 
0000 
70FC 
00 4480007D 
2000 
F28F 
0000 
6114 
6947 



00 C500F2A5 

F043 

00 4C20F22A 



71FF 

70F9 

6954 

6114 

00 C500F291 

F03A 

00 4C20F22C 

71FF 

70F9 

7 0D1 

694A 

7001 

6933 



00 4480003B 



0001 
F292 
F261 
0028 



00 4480007D 



0000 

70FC 

00 4480007D 

2000 

F260 

0000 

C038 

00 4C08F1FB 

00 44800036 

0001 

F2A6 

F276 

0028 



START LDX 
LD 
STO 
LD 
BSC 
BSI 
DC 

LOOP BSI 
DC 
DC 
DC 
BSI 
DC 
MDX 
BSI 
DC 
DC 
DC 
DC 
LD 
BSC 

P1053 BSI 
DC 
MDX 
BSI 
DC 
DC 
DC 
LDX 
STX 

LP1 LD 

EOR 
BSC 
HDX 
MDX 
STX 
LDX 

LP2 LD 
EOR 
BSC 
MDX 
MDX 
HDX 

MZ1 STX 
MDX 

NZ2 STX 
BSI 
DC 
DC 
DC 
DC 
BSI 
DC 
MDX 
BSI 
DC 
DC 
DC 
LD 
BSC 
BSI 
DC 
DC 
DC 
DC 



X3 CIND 



L $LORG 
L LOOP,+ 
I LSTPT 

/3100 
I CARDN 

/1000 

IAREA 


I CARDN 



*-4 
I HOLEB 



IAREA+1 

IAREA+1 

80 
L $LORG 
L P1443,Z 
I LSTPT 



*-4 
I LSTPT 

/2000 

RETUR 


1 20 
1 OAREA 
LI IAREA+20 

H4040 
L NZ1,Z 
1 -1 

LP1 
1 OAREA+21 
1 20 
LI IAREA 

H4040 
L N Z 2 t Z 
1 -1 

LP2 

LOOP 
1 OAREA+21 

* + l 

1 OAREA 

I EBPRT 

1 

IAREA+1 

OAREA+1 

40 
I LSTPT 



*-4 
I LSTPT 

/2000 

OAREA 



OAREA+21 
L LOOP,+ 
I EBPRT 

1 

IAREA+21 

OAREA+22 

40 



TELL CARDN NOT TO CHECK 
FOR // CARDS 

WHAT DEVICE IS LIST PRINTR 
BRANCH IF 1053 
SKIP TO CHANNEL 1 

READ A CARD 



LOOP BUSY 

CONVERT TO EBC CODE 



BRANCH IF 1443 
LOOP BUSY 



RETURN CARRIER 



SET UP TO SUPRESS TRAILING 

SET UP WDCT 

BLANKS — TEST FOR BLANK 

BRANCH IF NOT BLANK 

DECREMENT WDCT 

TEST NEXT CHARACTER 

SET UP ZERO WDCT 

TEST FIRST HALF OF CARD 

TEST FOR BLANK 

BRANCH NOT BLANK 

TEST NEXT CHARACTER 
ALL OF CARD IS BLANK 



SET UP FIRST HALF OF MESS 
TO BE PRINTED 



LOOP BUSY 

PRINT FIRST HALF OF CARD 



TEST SECOND HALF FOR BLANK 
BRANCH IF BLANK 
SET UP SECOND HALF OF CARD 
TO BE PRINTED 
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F245 


00 


4480007D 


BSI I 


LSTPT 


F247 





0000 


DC 





F248 





70FC 


MDX 


*-4 


F249 


00 


4480007D 


BSI ] 


LSTPT 


F24B 





2000 


DC 


/2000 


F24C 





F275 


DC 


OAREA+21 


F24D 





0000 


DC 





F24E 





70AC 


MDX 


LOOP 


F24F 


00 


4480007D 


P1443 BSI 1 


LSTPT 


F251 





0010 


DC 


/0010 


F252 





70FC 


MDX 


*-4 


F253 


00 


4480003B 


BSI 1 


EBPRT 


F255 





0001 


DC 


1 


F256 





F292 


DC 


IAREA+1 


F257 





F266 


DC 


QAREA+6 


F258 





0050 


DC 


80 


F259 


00 


4480007D 


BSI I 


LSTPT 


F25B 





2100 


DC 


/2100 


F25C 





F260 


DC 


OAREA 


F25D 





0000 


DC 





F25E 





709C 


MDX 
* TABLE 


LOOP 
AREA 


F25F 





4040 


H4040 DC 


/4040 


F260 





002D 


OAREA DC 


45 


F261 





0000 


DC 





F262 





0000 


DC 





F263 





0000 


DC 





F264 





0000 


DC 





F265 





0000 


DC 





F266 




000F 


BSS 


15 


F275 





0014 


DC 


20 


F276 




0019 


BSS 


25 


F28F 





0001 


RETUR DC 


1 


F290 





8121 


DC 


/8121 


F291 





0050 


IAREA DC 


80 


F292 




0050 


BSS 


80 


F2E2 




FIFO 


END 


START 



LOOP BUSY 

PRINT SECOND OF CARD 



GO READ NEXT CARD 
LOOP RUFFES BUSY 



SET UP CARD TO BE PRINTED 



PRINT THE CARD 



GO READ NEXT CARD 



E8C BLANK 
OUTPUT BUFFER 



RETURN CARRIER MESSAGE 
INPUT BUFFER 



* SYMBOL TABLE 

* 

CARDN 003D CIND 0020 EBPRT 003B HOLEB 003A H4040 F25F 

IAREA F291 LOOP F1FB LP1 F219 LP2 F222 LSTPT 007D 

NZ1 F22A NZ2 F22C OAREA F260 P1053 F20E P1443 F24F 

RETUR F28F $LORG 00A6 $TVWK 0068 START FIFO 

NO ERRORS IN ABOVE ASSEMBLY. 
LIST 
DUP FUNCTION COMPLETED 
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BASIC CONCEPTS OF DATA ACQUISITION AND 
PROCESS CONTROL SYSTEMS (DACS) 

INTRODUCTION 

Data Acquisition and Process Control Systems are by 
definition real-time systems. In real-time process- 
ing, inputs may arrive randomly from the process 
being monitored to the computer which rapidly re- 
sponds to each input, usually by transmitting an out- 
put back to the process. This is in contrast to con- 
ventional batch processing where groups of inputs 
are processed by passes through the computer. The 
notion of real-time usually implies that a computer 
is responding to inputs as they occur in the physical 
world. 

The principal functions of a real-time data acqui- 
sition and process control computer system are: 
data scanning, data logging, process calculations, 
process outputs, input-output control, operator- 
machine Communication, and specialized system 
monitoring. Each of these functions is implemented 
by one or more programs permanently stored in core 
or in secondary storage. 

In general, data logging/data acquisition applica- 
tions are basically monitor systems where the data 
signal traffic is toward the computer process I/O. 
Control systems (supervisory, operator-guide, or 
direct digital control), on the other hand, are char- 
acterized by a two-way signal flow across the 
process/computer interface. For the most part, 
data acquisition implies that the process operates in 
its normal manner without being affected by the com- 
puter, whereas computer control systems imply that 
the process is directly controlled by actions and 
commands of the computer. 

Implementation of data acquisition and process 
control systems in real-time requires certain proc- 
ess I/O hardware which significantly affects software 
requirements. Most important of these are the 
analog input and output hardware which require relay 
and possibly solid-state multiplexing devices together 
with a multi-level priority interrupt system. 



Analog Process I/O 

By the very nature of processes, many internal proc- 
ess signals are analog — that is, continuous func- 
tions with respect to time. Many instruments have 
been developed to pick- off various signals of interest 
and to modify them (that is, amplify, filter, linearize, 
etc.) in order to provide data or control signals. 



Analog-to-digital converters (ADC) are used to con- 
vert the resultant analog signals for computer entry. 
The ADC and amplifiers in a DACS may also operate 
directly on the output of a signal transducer. 

Transducers have been designed around physical 
laws to convert one form of energy to another. 
Transducers used with data acquisition and process 
control systems usually convert the various physical 
quantities to be measured to their voltage analogs. 
For example, transducers are available to convert 
pressure to voltage and temperature to voltage. The 
quality of the transducer is determined by the ac- 
curacy, repeatability, linearity, and proportional 
range of the parameter to voltage conversion. In 
almost every process, temperature is one of the 
variables of interest, and in many cases, thermo- 
couples are used to measure temperature. Strain 
gauges may be used to measure pressure, deforma- 
tion, and loading. Thus, depending upon the size and 
package, one could use a strain gauge to measure 
direct blood pressure or to measure stresses set up 
in a missile structural member when the missile 
engine is ignited. Similarly, a thermocouple could 
be used to measure a blast furnace process temper- 
ature or air temperature. 

To convert the transducer-produced voltage to 
digital values, an analog-to- digital converter (ADC) 
is used. Since an ADC can operate at a high rate 
compared to the rate of change of the individual sig- 
nal voltages and because ADC units are relatively 
expensive, it is customary to time-share the ADC 
among a number of input voltages through an analog 
multiplexer. 

An analog multiplexer is a device which switches 
the various analog inputs to the ADC . Most multi- 
plexers can be programmed for sequential scan 
where each input channel is in turn scanned and con- 
nected for conversion to the ADC. Random scan 
sequences can also be programmed. Random scan- 
ning, as the name implies, permits any arbitrary 
sequence of input channels to be scanned and con- 
nected in turn to the ADC. 

In summary, the signal flow in the analog proc- 
ess I/O can be explained as follows. Multiple par- 
ameters are continuously converted to voltages by 
appropriate transducers and signal conditioning 
electronics. The resultant voltages form inputs to 
a multiplexer. Under command of the processor- 
controller, multiplex switches are closed to allow 
an analog input signal to be amplified (in most cases) 
by a time- shared amplifier. The ADC connected to 
the amplifier output does the actual voltage to digital 
conversion, with the resultant digital value being 
inputted to the computer. In this manner, the signals 
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of interest in the process are sampled, measured 
and entered into the computer for additional process- 
ing. 

Data flow from the computer to the process fol- 
lows a converse procedure. Digital data is entered 
into multiple registers by the computer. Each regis- 
ter is connected to a digital-to- analog converter 
(DAC). A DAC is basically a digitally-controlled 
voltage or current source whose output is the voltage 
analog of the digital value. The analog outputs in 
turn control various set-points and other control 
points in the system. In some systems, a single 
DAC is connected to analog memory devices via an 
analog multiplexer. In this way, a single DAC can 
be used to provide many output signals. 

By using digital-to- analog converters and analog- 
to-digital converters, a digital computer can be 
made to communicate with process signals and con- 
trol equipment. It should be noted that the digital 
process I/O and the analog process I/O are all under 
program control. 



Digital Process I/O 

In addition to the analog parameters which must be 
monitored and controlled, there are other process 
signals which are binary in nature. Thus, for exam- 
ple, relays can be open or closed, a voltage level 
may or may not be present, or a parameter may be 
represented as a sequence of pulses. The computer 
must be able to accept this data which is essentially 
binary in form. Similarly, the computer must be 
capable of producing binary outputs to control devices 
such as relays. The subsystem in a DACS, which 
handles these types of signals, is generally referred 
to as digital process I/O. 

Two of the process I/O functions provided on the 
IBM 1800 Data Acquisition and Control System are 
contact sense and voltage sense. The output of the 
contact sense circuit signifies when a contact closure 
has occurred on the input. The output of the voltage 
sense circuit indicates when an input signal has ex- 
ceeded a preset level. The output of each circuit is 
connected to a single bit in a register. The processor- 
controller can scan these registers at rates from 
100, 000 up to 500, 000 words (groups) per second. 

Closely allied with these digital input features is 
process interrupt. Process interrupt is a vital fea- 
ture for real-time control because the computer is 
basically a sequential machine. When a significant 
process event such as an alarm occurs, as indicated 
by a relay closure or voltage level, a signal is trans- 
mitted to the computer as an interrupt requiring a 
special subroutine to take appropriate action. 



Interrupts are usually assigned in order of priority, 
so that if two occur at once, the more important is 
serviced first by the computer. In essence, proc- 
ess interrupt is merely a special form of voltage/ 
contact sense. The feature of customer-assignable 
multi-priority interrupts clearly differentiates a 
process control computer from the normal data proc- 
essing system. 

Pulse inputs form another category of digital in- 
puts. A typical process source is the turbine flow 
meter which generates pulses at varying rates from 
a few pulses per second up to several thousand 
pulses per second. Electronic counters are used to 
accumulate the pulses; the response to an interrupt 
signal on counter overflow or a periodic scanning of 
the counter register then accomplishes transfer of 
the accumulated count data into the computer. High 
speed pulse counters and scalers for megacycle rates 
are also adaptable for high-speed data acquisition 
applications. 

Similarly, some control devices in a typical proc- 
ess environment require input data in the form of 
pulses. Several types of output are available, one 
form being pulse output. The primary purpose of 
this output is to provide for pulse trains to operate 
such devices as latches, set point indicators, and 
other stepping motor devices. 

One form of output which is opposite to the con- 
tact sense feature is Electronic Contact Operate 
(ECO). Many of the required control and display 
operations in a typical process application involve 
binary action; that is, a piece of equipment is turned 
on or off, or a valve is open or shut completely. 
This capability is provided by ECO. 

To increase the versatility of the data acquisition 
and process control system, an output feature is pro- 
vided whereby a digital word can be transferred to an 
external piece of equipment. The register output 
feature provides this capability on the 1800. Exam- 
ples of its use might include transfer of data to 
another computer or to a display device. 

Pro cess -input-data flow to the computer is illus- 
trated in Figure 89, as accomplished on an IBM 
1800 Data Acquisition and Control System, together 
with corresponding process output features. Digital 
data may be read in under direct program control, 
as the program executes read-in instructions, or ad- 
ditional channel controls can be employed to sequence 
data to previously assigned areas of core storage 
without disrupting normal program operation. This 
is known as cycle- steal. When data is ready for 
entry, a cycle- steal operation is initiated by the 
channel control circuitry. One memory cycle of 
computer operation is used to read- in the data word 
directly to the assigned core storage location. 
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Figure 89. IBM 1800 Data Acquisition and Control System 



DATA ACQUISITION SYSTEMS 



Data acquisition/data logging systems are generally 
the simplest form of DACS. When used in a data 
acquisition role, the computer controls the real-time 
collection of data from the process. Many data 
acquisition systems operate on analog signals record- 
ed on magnetic tape rather than in real-time. How- 
ever, the problems involved in both situations are 
similar, except of course, in real-time only one op- 
portunity to capture the data exists. To overcome 
this, an analog recording is sometimes made simul- 
taneously for backup. 

In data acquisition/data logging applications, the 
data flows from the process to the computer system 
(or analog magnetic tape). A minimum number of 
signals flow from the computer to the process. 
Therefore, the computer will normally have mini- 
mum control over the process. The data signals 
from the process are connected to the process input 
computer circuits and/or to the analog tape recorder. 
Thus, the data acquisition system monitors and 
records what goes on in the process without affecting 
the process functions in any manner. 



When the analog tape is played back, the signals 
appear to the DACS computer exactly as real-time 
signals and can be handled by the computer in the 
same manner. By playing back the analog tape 
several times, a more selective retrieval of data is 
possible. If a DACS malfunction occurs in real- 
time, the data can still be retrieved by replaying 
the backup analog tape. 

There are many reasons and applications for 
computer-assisted data acquisition. The following 
list is given to denote the almost universal applica- 
bility of data acquisition: 

1. Record keeping: Many applications and indus- 
tries must keep expensive records of processes. 
For example, airlines are required by law to 
record aircraft flight performance. 

2. Telemetry is basically data acquisition and 
data logging from a remote or inaccessible 
process. 

3. Data editing and data reduction applications in- 
volve processing large quantities of data which 
in many cases are redundant or non- significant. 
The computer program is called upon to reduce 
this data to manageable proportions. 
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4. Many processes have been designed on an empir- 
ical basis. Data logging and data acquisition is 
used to collect sufficient data to more fully under- 
stand the process. This data can be for process 
optimization and for model building. 

5. By continuously monitoring parameters within a 
process, alarm conditions can be detected. 
Each value is continuously compared against 
preset conditions. Whenever a parameter is not 
within limits or the status does not check as 
expected, an appropriate alert can be given. 

6. By carrying the limit violation check procedure 
further, trend predictions can be made. Thus, 
when rate of change of parameters exceeds 
prescribed limits, remedial action can be taken. 

7. Important application areas are quality control 
and industrial testing. By using computer-aided 
test stands, it is possible to do 100% testing on 
production line components and produce printed 
records of the test results. For many military 
specification components, 100% testing is 
mandatory. Furthermore, the statistical data 
accumulated is necessary for various quality 
control work and product assurance. Computer- 
assisted testing makes the procedure econom- 
ically practical. The degree of confidence that 

a customer has in a product is enhanced when he 
can obtain a printed record of the product's 
acceptance test results. 

OPERATOR GUIDE /SUPERVISORY CONTROL 

Almost all Operator Guide/Supervisory Control (OG/ 
SC) systems embody data acquisition principles. In 
order to control a process, one must first measure 
and monitor it. The data acquisition feature is the 
monitor portion of OG/SC. Thus, data acquisition 
is the first step to control. When starting a control 
project, one must obtain sufficient data about the 
process through a planned data acquisition system. 
The data acquisition finally becomes the process I/O 
of the control system. OG/SC systems are charac- 
terized by a two-way data flow between the process 
and the computer. The computer monitors the proc- 
ess and based upon these measurements determines 
what control is necessary to make the system func- 
tion in accordance with the program. To a first ap- 
proximation, the difference between Operator Guide 
Control and Supervisory Control is one of how the 
computer interfaces with the process. Operator 
Guide Control usually implies the presence of a 
human operator who receives instructions from the 
control processor on an output display device, such 



as a typewriter. The operator makes adjustments 
and sets controls on set-point controllers based upon 
the control processor originated instructions. 
Supervisory control situations allow for direct con- 
trol of the process by the computer via hardware 
electrical connection to the set-point controllers. 
The computer can make adjustments and sets con- 
trol without operator intervention. Both categories 
rely upon direct computer data acquisition. 

Most conventional processes rely upon analog 
controllers to hold various process variables within 
set points. Processes are usually made up of a 
number of cascaded operations with each step con- 
trolled by an analog controller. To adjust or opti- 
mize the process for particular modes of operation, 
each controller is set through its set-point control. 
The set-point may be reset during the process to 
compensate for various process perturbations. 

When a computer controls the process, various 
modes of control are feasible. For example, in 
start-up control, the computer will first issue in- 
structions to set the controllers to various set- 
points depending upon the process. The computer 
continually monitors the set-points on the controllers 
and the various controlled variables. Subsequent 
steps in the starting sequence are not permitted to 
commence until all values are within their pre- 
scribed tolerances. This type of control assures a 
reliable repeatable checkout and start-up procedure. 
Full documentation of all controls and variables are 
an implied by-product. Furthermore, by extending 
this concept, a standard operating procedure for the 
process is feasible. 

Process optimization generally requires a mathe- 
matical model which has been defined on the basis of 
theory and/or data obtained using data logging tech- 
niques, etc. Successful optimization results in 
maximizing or minimizing parameters deemed im- 
portant by management. 

An attractive feature of the OG/SC type of com- 
puter control is that the process equipment is least 
disturbed. The only effect on the analog controllers 
is that they must be provided with remote set-point 
capability. Reversion to manual control is easily 
accomplished because the analog controllers are 
still in place. This provides an important backup 
capability for keeping the process running during a 
computer shutdown. La addition, the minor changes 
to the process instrumentation is an economic ad- 
vantage. 

Computer control can thus be installed in most 
existing processes without the necessity for building 
from the ground up. 
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DIRECT DIGITAL CONTROL 

Direct Digital Control (DDC) is another advanced 
form of computer process control. In this mode of 
operation, the process will probably not run without 
the computer. The computer controls the process 
directly without the intervention of analog control- 
lers. Computer-generated signals are used to con- 
trol the process directly. 

A DDC application generally requires re-instru- 
mentation on existing processes. The proponents of 
DDC have advanced many arguments for this method 
of control. The marriage of the process to the com- 
puter provides many potential control techniques, 
not otherwise available, because of the tight control 
that is feasible. 

A major advantage of DDC is the ease in which a 
parameter may be instrumented and controlled. A 
minor hardware addition in the process coupled with 
another program loop is all that is needed to control 
an additional variable. On the other hand, to add an 
analog controller is a major construction task com- 
pared with its DDC equivalent. To a large extent, 
the number of process loops that can be controlled 
is limited only by processor-controller and process 
I/O capabilities. 

Analog controllers may be manually adjusted for 
best control for any given set of plant operating con- 
ditions. If these conditions change, analog controllers 
must be manually readjusted to retain optimum con- 
trol. Readjustment is so time-consuming that it is 
usually impractical. In DDC, to change a critical 
time constant or to add a derivative function entails 
the addition of a few punched cards rather than 
major hardware. The effective characteristics of 
a controller are thus changed by inserting new cards 
into the deck. The flexibility and ease with which 
DDC can be altered is not possible with analog con- 
trollers. 



Further Reading 

For the benefit of inexperienced readers, the follow- 
ing IBM publications are recommended for further 
reading: 

Principles of Data Acquisition Systems, 
Form E20-0090 

Programming for Computer Control of a Cement 
Kiln, Form Z20-1753 



The IBM 1800 Data Acquisition and Control System 
for Gas Turbine Engine Testing - Developmental, 
Form H2 0-0121 

The IBM 1800 Data Acquisition and Control System 
for Gas Turbine Engine Testing - Production, 
Form H20-0123 

Computer Control of the Continuous Hot-Dip 
Galvanizing Process, Form E2 0-017 8 

1800 Traffic Control System - Application 
Description, Form H2 0-0212 

1800 Process Supervisory Program (PROSPRO/ 
1800) - Application Description, Form H20-0261 



TSX SAMPLE SYSTEM 



High-Speed Data Acquisition in Low Energy Physics, 
Form E20-0171 



The TSX Sample System was conceived and developed 
for two primary reasons. First, it demonstrates in 
a step-by-step fashion how to generate a TSX system 
from start to finish. Second, it illustrates some of 
the ways in which TSX can be used to actually control 
a process. The sample system is a working operat- 
ing system which has proven itself in continuous 
service. For practical purposes, and in the inter- 
est of simplicity, an IBM 1800 Data Acquisition and 
Control System is linked to a Process Simulator to 
reproduce an actual continuous process which close- 
ly approximates a paper machine used in the manu- 
facture of paper of diverse grades. 

The general objectives of the system are to give 
better quality and quantity control. Its design basis 
included four specific criteria: 

1. Provide periodic logs of all important variables 
within the system. 

2. Establish closed-loop control over eight proc- 
ess variables. 

3. Incorporate process operator control over 
forty process variables. 

4. Display up-to-the minute management informa- 
tion about the process. 

The sample system demonstrates how a number of 
functions may be achieved by using TSX, with rela- 
tively little effort on the user's part. The features 
of special significance in this example are 

• the scheduling of periodic, semi-periodic, 
synchronous and asynchronous programs 

• closed-loop control 
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• process job scheduling 

• error recovery procedures 

• system design to achieve maximum utilization of 
the time- sharing mode 

SYSTEM DESIGN 

The first thing that must be done in designing a con- 
trol system is the definition of the process to be con- 
trolled; the second is the definition of the hardware 
(that is, the computer and its associated instrumen- 
tation) ; and thirdly, the design of the programming 
software. In this example, the process is referred to 
in terms of a paper machine, but those readers who 
are familiar with the paper industry will immediately 
realize that a paper manufacturing system in its full 
detail is quite complex, and for this reason, many of 
the paper machine control functions normally encoun- 
tered are intentionally omitted. Among these are the 
handling of paper breaks and the use of instruments 
for on-line measurements of consistency, basis 
weight, and moisture content. 

The paper process is designed to manufacture 
small amounts of paper of high quality grades. Orders 
arrive at the plant for varying quantities of paper of 
different paper grades. For example, orders may 
differ with respect to dimension, basis weight, 



strength properties, color, chemical additives, etc. 
The machine must be able under continuous; operation 
to switch from one grade of paper (when the order 
quantity for that paper has been completed) to the 
next grade of paper. This means that grade change 
must be made as quickly and efficiently as possible 
to avoid undue and costly waste. Also, during the 
manufacture of a given grade of paper, very tight 
control over the process is necessary to ensure qual- 
ity that is consistent with past orders for this paper. 
The control variables must be kept at setpoint, and 
any undue variation in other variables within the sys- 
tem must be recognized and the operator informed. 

Input to the system must be provided for the up- 
dating of job files on the disk so that the computer 
knows continually what grades of paper are to be man- 
ufactured and in what sequence. Data on grade and 
quantity of paper arrives from the order department 
on data cards (see Figure 90). These cards are read 
and placed in files, on the disk, by the nonprocess 
time- shared portion of the operating system; the proc- 
ess portion then goes through this information sequen- 
tially. 

Provision must be made for a process operator, 
through the medium of a console, to be able to ob- 
tain and/or update information about the entire proc- 
ess system at any time. This may include the 
changing of a setpoint on a setpoint station or to have 
instantly all available information on a given vari- 
able, such as its current value, its high and low lim- 
its, and conversion factors. The process operator 
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must also be able to modify the run- time of a par- 
ticular grade of paper, and to change the sequence of 
process jobs that reside on the disk. 

The 1800 hardware configuration for this system 
consists of the following: 

• A two-microsecond 1801 Processor-Controller, 
with 32, 768 words of core storage 

• A 2310 Disk Storage unit, with two disk drives 

• A 1443 Printer 

• A 1442 Card Read/Punch Unit 

• Three 1053 Printers 

The 1443 Printer and 1442 Card Read/Punch, 
along with one of the disk drives are used for non- 
process work. This means that the card reader, the 
printer, and one disk drive constitute a basic stand- 
alone monitor system, while the process portion 
consists of the remaining disk drive, three 1053s, 
and process I/O. 



PERIODIC PROGRAM SCHEDULER 

Certain periodic functions must be handled within the 
system. First, every 20 seconds the closed-loop 
control program must be entered for a scan of the 
setpoint stations to see if they are on setpoint and, 
if they are not, to set up for the return of the set- 
point positioners to their correct operating points. 
Second, every two minutes a scan of all operator 
guide points must be performed for limit checking, 
and any out-of-limit violations printed so that the 
process operator may bring these operating points 
within limits. Third, every quarter hour on the 
hour, a log of all variables within the system must 
be printed. Fourth, every hour, on the hour, a 
summary log of the previous hour's production must 
be printed for the attention of the process operator, 
the supervisor, and the foreman. Fifth, at the end 
of every shift (12:15 a. m. , 8:15 a. m. , and 
4:15 p. m. ) a shift- in log is printed which repre- 
sents a summary of the past shift's production. 
Sixth, every Monday morning at 8:30, a weekly sum- 
mary log is printed for close scrutiny by the super- 
visor and his foreman. 

The first two of these functions are called periodic 
asynchronous functions because, while they are per- 
iodic in nature (that is, they occur every 20 seconds 
and every 2 minutes, respectively), they do not have 
to be in synchronization with real-time. The other 



functions are periodic synchronous since they are 
periodic and must be in synchronization with real- 
time, i. e. , every hour, on the hour. To schedule 
the programs properly, a scheduler CALL COUNT 
subroutine is written in FORTRAN. The time-base 
method is used to determine when a periodic, 
synchronous program is next executed. In this way, 
a time is recorded for a given program that is 
chosen for execution. When the real-time clock is 
greater or equal to the time base specified, that 
program is scheduled for execution, i. e. , it is 
queued, an end- time- sharing command is given, and 
the base-time is incremented by the period of the 
program. 



SAMPLE SYSTEM ERROR DESIGN 

Error procedures constitute one of the most impor- 
tant parts of any system . In the sample system, 
error procedures can be broken down into two 
phases, (1) checkpoint operation and, (2) system 
operation with certain I/O devices down or off-line. 



Checkpoint Operation 

The basic philosophy of checkpoint operation is that 
all system data needed by the computer to control 
the process must be stored in a location where it will 
not be destroyed. Thus, if normal operating data is 
destroyed, the data last saved can be retrieved and 
utilized. In the sample system, this is handled by 
having, on disk, two files that are used to record 
the process variables and certain conversion factors. 
One of these files is a static file, the other being 
dynamic in nature. Whenever a variable is modi- 
fied in the system, one of the two files is updated 
with the new information. For example, if the oper- 
ator at the process operator's console changes the 
setpoint of one of the setpoint stations, this informa- 
tion is recorded both in INSKEL COMMON (working 
data) and in a file on disk. If, at a later date, 
something should happen that would cause either a 
reload or a restart of the system, all operational 
data, such as setpoint values, limits on operator 
guide points, conversion factors, switches, can be 
read from disk to reinitialize INSKEL COMMON to 
the most updated valid values. 

FILE1, the static file, contains all conversion 
factors used in the system. This file is normally 
read into core at cold start time to update INSKEL 
COMMON with the necessary matrices containing 
conversion factors for setpoint and operator guide 
analog inputs. The only time INSKEL COMMON 
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and FILE1 are modified is when the calibration pro- 
grams, which run in a time-sharing mode, are exe- 
cuted. At that time, the conversion factors of se- 
lected points are updated in INSKEL COMMON and 
the values are updated in FILE1. 

The second file in the system for checkpoint op- 
eration, the dynamic file, is labelled FILE3 and con- 
tains all of the dynamic variables within the system. 
These comprise the job number, the day, the time 
when the present grade of paper is completed, the 
setpoint for all of the closed loops, and the limits for 
all points under operator guide control. This file 
is updated whenever one of the dynamic variables is 
modified, such as at the start of a new grade of paper 
or the entry of data into the system from the process 
operator's console. 

The system contains both, a restart core load and a 
reload core load. The restart core load is refer- 
enced by all but the C. E, interrupt mainline. When- 
ever EAC initiates a restart, this core load is brought 
into core storage. The system then reads the static 
and dynamic files from disk to initialize INSKEL 
COMMON, makes sure that both the scheduler and 
the end-of-grade call count subroutines are function- 
ing correctly, and checks to see if an end-of-grade 
has occurred during the restart procedure. If so, it 
calls CHAIN to the mainline core load, GRADE. 
Otherwise, it calls VIAQ, and the system has re- 
started properly. 

The reload core load is similar to the cold start 
core load, except there is a decision point within the 
core load to determine whether a reload or a cold 
start condition has occurred. Normally, sense switch 
6 is turned on at cold start time. The cold start core 
load interrogates sense switch 6, and if the switch is 
on, the program goes through its normal cold start 
procedure. If sense switch 6 is off, the cold start 
routine assumes a reload has occurred and reads 
both static and dynamic files, starts the scheduler 
running again, and performs other functions that are 
similar in scope to those that occur in the restart 
core load. The normal cold start procedure, there- 
fore, is to set sense switch 6 on and, when the sys- 
tem is up and running, turn that switch off, so that 
if a reload occurs, the system recovers correctly. 

I/O Error Procedures 

The system is designed so that it can function with 
only one of the two disk drives in operation. Thus, 
with a hardware failure on either disk drive, the 
system is able to run at full capacity on the process. 
This requires a two-disk system in which all process- 



oriented functions, such as cold start, the resident 
skeleton, system save areas, and all of the process 
core loads, are on logical drive 1, and all nonproc- 
ess functions, such as DUP, FORTRAN Compiler, 
Assembler, are on logical drive zero. Cold start 
is to logical drive 1; since all of the process is 
recorded on logical drive 1, there should never be 
a need to reference logical drive zero, unless time- 
sharing occurs. 

In order to guarantee that the system does not 
initiate time-sharing unless an operator is present 
to specifically instruct it to do so, the cold start core 
load (COLDS) sets the CALL VIAQ time-sharing 
period to zero. This means that logical drive zero 
will be referenced only if the console interrupt but- 
ton is depressed with sense switch 7 on. A cold 
start to logical drive 1 may, therefore, be per- 
formed without any fear of not having logical drive 
zero operational. Thus, if one of the two physical 
drives goes down, the process is still under control 
without any impairment to efficiency. When the drive 
is serviced, it can be restored on-line with the C. E. 
interrupt routine and time- sharing started. This 
allows for the C. E. to work on the drive while the 
system is still controlling the process. The system 
must also continue to operate if any two of the three 
1053 Printers are down. This is achieved by setting 
the backup pattern for the 1053 Printers in cyclic 
order, such that 



1053 Printer No. 
1053 Printer No. 
1053 Printer No. 



2 backs-up 1053 Printer No. 1 

3 backs-up 1053 Printer No. 2 
1 backs-up 1053 Printer No. 3 



This means that if one 1053 Printer goes down, it 
is backed -up, and if either of the other two printers 
goes down, the third printer backs-up the first two, 
so that as long as one 1053 Printer is operational, 
the system is still running. 

Of the two other data processing I/O devices on 
the system, the 1443 Printer is used only on the 
time- sharing side of the system. If it therefore 
goes down, it will not affect the process side; in this 
event, there will be no printout of new job data 
loaded to the disk. The 1442 Card Read Punch is 
used by the process only at cold start time; if the 
system is up and running when the 1442 device goes 
down, the system is still able to control the process. 
The process can thus still be controlled by the 1800 
hardware if, in the worst case, at cold start time, 
one of the two disk drives, two of the three 1053s, 
and the 1443 are all down. 
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To summarize, all that is needed for a cold start 
is a 1442 Card Read Punch, a 1053 Printer, and a 
2310 Disk Storage Unit with two disk drives. After 
the system is placed on-line and becomes operation- 
al, only one 1053 Printer and one disk drive are re- 
quired. The way the system is designed, it functions 
even if the final 1053 goes down, but with one re- 
striction: no operator messages are printed. Closed- 
loop control is still in force, and the user is still 
able to enter information through the process oper- 
ator's console, but he is not able to obtain informa- 
tion on the grade of paper being produced, and any 
out-of-limit violation that may occur. 

The EAC printer for the system is defined as all 
three 1053s. This ensures that if an error condition 
does arise, the operator on at least one of the three 
1053 printer stations is informed of the problem. To 
enable use of the C. E. interrupt routines (that form 
part of TSX) to place a disk drive, a 1443 Printer, 
and a 1053 Printer on-line or off-line, a C. E. core 
load is provided. This core load is called whenever 
it is necessary to use the C. E. interrupt routine. A 
special C. E. core load is needed within the system 
because the C. E. interrupt cannot be masked. This 
means that when the C. E. interrupt button is depres- 
sed, no matter what the masked status of the 1800 is, 
the interrupt will occur. It also signifies that the 
C. E. routine has no choice but to assume that the 
whole system is masked at the time of the interrupt, 
and it therefore returns the machine in this status. 
The interrupt mainline core load must therefore 
unmask back to the desired configuration at the time 
of the C. E. interrupt. In order to assure that this 
occurs, a special core load is called into core before 
the C.E. interrupt button is depressed. The core 
load types out a message indicating that the operator 
can now press the C. E. interrupt button; it then 
performs a pause. The C. E. interrupt causes the 
mainline program to drop through the pause. At this 
moment, the machine is masked back to the user's 
defined condition and a CALL VIAQ is performed. 

Since the system has been designed for error re- 
covery, restarts and reloads can be performed with- 
out loss of process control. While the system is on- 
line, the C.E. is able to carry out both preventive 
and corrective maintenance on the 1443 Printer and 
on two of the 1053 Printers. Once these devices be- 
come serviceable, they are restored to on-line duty 
by use of the TSX C.E. interrupt routine, and the 
system continues operation in the normal mode. The 
C.E. Aux Storage routines are also used while the 
system is on-line. 



CLOSED LOOP CONTROL 

It is desired to have the sample system perform 
closed loop control on eight setpoint stations. The 
scan requirement demands that these eight stations 
be interrogated every 20 seconds to ensure they are 
operating at the right setpoint value. A decision is 
now made whether the closed loop control program 
is to be a core load or an INSKEL interrupt subrou- 
tine. If the closed loop control program is to be a 
core load, it would require core exchanges every 
20 seconds in order for it to operate as specified. 
This would be very inefficient in that the large num- 
ber of core exchanges would cut down the useful 
amount of processor-controller time. Also, time- 
sharing periods would be of such small magnitudes 
that a nonprocess job would take a great amount of 
time to execute. For these reasons, the closed loop 
control program is written in FORTRAN as an 
INSKEL CALL LEVEL interrupt subroutine; that is, 
it resides in permanent core. 

The setpoint station couples the 1800 hardware to 
an analog control loop; the station receives infor- 
mation from the computer in the form of a pulse 
train, and transmits information back to the com- 
puter in the form of an electrical signal so that this 
may be read by analog input. This signal indicates 
the position of the setpoint. The output from the 
setpoint station to the process can be used to oper- 
ate a pneumatic control valve directly or through a 
pneumatic relay. The setpoint station has a scale 
range of to 100, divided into 2, 000 increments. 
One pulse output to the setpoint station drives the 
setpoint positioner one increment. The pulses must 
be spaced at least 15 milliseconds apart in order to 
drive the positioner at an effective rate. The sample 
system is programmed to anticipate setpoint posi- 
tioner drift. Thus, the control loop more closely 
resembles direct digital control (DDC) than normal 
setpoint station operation. 

The closed loop control program is divided into 
two sections. The scan section scans all eight 
setpoint stations and computes the number of pulses 
needed for each one; the output section outputs the 
pulses. A CALL LEVEL (10) command is given to 
enter the program and, depending on a switch set- 
ting, one of the two sections is executed. Every 20 
seconds the scheduler sets up an entry into the scan 
section. Once the scan section has completed its 
task, it initiates the output section. 

The switch for the program is now set so that 
future entries will enter the output section of the 
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closed loop program before another 20- second per- 
iod has elapsed. This is necessary because the pro- 
gram must not stay on the interrupt level of the 
closed loop control program during the output of the 
pulse chain needed to move the setpoint station, which 
would tie up the system too long. For example, if 
200 increments are put out to the setpoint station, 
the necessary loop would take 3 seconds for execu- 
tion. Therefore, once the output section has output- 
ted a pulse to the setpoint station, it calls for timer 
B to set up reentry to itself in 15 milliseconds. It 
then exits from the interrupt level so that computa- 
tion or execution on the mainline level can continue. 
Fifteen milliseconds later, the timer runs out and 
the subroutine associated with the timer executes 
Call LEVEL back to the closed loop control program. 
At this point, if another pulse is needed for any of 
the setpoint stations, it is outputted and a Call 
TIMER is again given. If all of the desired pulses 
have been given, no Call TIMER is made and the 
program exits. The closed loop control program will 
not be entered again until 20 seconds have elapsed 
from the last entry to the scan section. 

This method of control provides background and 
foreground operations with the TSX system, i.e., 
multi-programming. The closed loop control pro- 
gram constitutes the foreground job, and the program 
resident in variable core, the background job. 



OPERATOR GUIDE CONTROL 

One of the system design criteria is to incorporate 
operator guide control over forty process variables. 
At the start of a grade, the operator is informed of 
the limits on the 40 variables he is responsible for 
controlling. Every two minutes these variables are 
scanned, and if an out-of-limit condition occurs on 
any of the variables, this information is printed for 
the operator. Also, the operator has the ability to 
perform a two-minute scan on demand so that he cm 
quickly scan all points, when desired. At the same: 
time, the operator can call for total information on 
any one point under control, i. e. , its present value, 
its high and low limits, and conversion factors. The 
operator also has the option of changing the limits 
of a point or taking a point off operator guide control. 
To take a point off-line, he sets to their maximum 
and minimum values, all of the limits checked by the 
two-minute scan. In this manner, he is continuously 
informed of any erroneous out-of-limit condition. 



SYSTEM DESIGN FOR OPTIMUM TIME-SHARING 

Another desirable system requirement is to make 
optimum use of the nonprocess mode of operation on 
a time-shared basis. Among the activities that the 
user may wish to implement in a time-shared mode 
are instrument calibration, updating of process job 
files on disk, accounting, payroll, etc. As it is 
assumed that the user is going to make very heavy 
use of the time- shared mode, a 1443 Printer is in- 
cluded in the system. The system and list printers 
for the Nonprocess Monitor are both defined as the 
1443 Printer so that all normal nonprocess output 
would be on that printer. With the design of the 
system such that only one disk is required for proc- 
ess work, logical drive zero can be switched among 
different nonprocess monitor disk cartridges. This 
allows each department within the company to have 
its own nonprocess monitor disk cartridge, with its 
own set of programs. When a department job is 
ready for processing, and computer time is avail- 
able, all that is required to be done is to place the 
disk cartridge on disk drive zero and execute. With 
the 1442/1443 combination, the nonprocess user 
appears to have a small independent computer for 
his own, i. e. , a computer with a card read punch, a 
printer, and one disk. A data processing computer 
is thus combined with a strictly control systems com- 
puter in one machine and under one operating sys- 
tem. La fact, if the user desired, he could well set 
up a closed shop, stack-job environment where non- 
process jobs submitted by the various departments 
within the company are run while the computer is 
controlling or monitoring the process. 



PROCESS OPERATOR'S CONSOLE 

One of the basic requirements of any process con- 
trol system is a simple and efficient method to input 
data from a process operator. The operator must 
also be able to interrogate the process, with relative 
ease, to obtain any information required. There is 
no single standard approach to this problem, since 
the nature of the information needed by any one in- 
dustry and, in fact, any plant within an industry, 
varies greatly. In the sample system, a portion of 
the 1800 Computer Process Simulator is used for 
the operator's console (see Figure 91). Also, one 
of the 1053s works in conjunction with the console. 
This means that the process operator has the console, 
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along with a 1053, at his work station. Standard 
process I/O is used to operate the process oper- 
ator's console; analog input is used to enter infor- 
mation from the operator's data entry dials; process 
interrupts are used as function buttons; digital input 
is used to define whether a certain closed loop is 
under control; digital output is used to indicate the 
direction of movement of a setpoint positioner when 
it goes through a control movement; and pulse output 
is used to count the number of increments given to 
all setpoint stations at any time. 



Data Entry Dials 

In normal practice the process plant operator has a 
definite need to enter digital data into the system. 
This may take the form of a new set of limits for an 
operator guide point, a new value for a setpoint 
station, or a new time for a particular grade of paper 
to have its production terminated. In order to ac- 
complish this on the sample system, sixteen data 
entry dials are provided. Each data entry dial con- 
sists of a linear potentiometer connected to an analog 
input point. To obtain fine adjustment, a vernier 
scale is incorporated with each potentiometer. A 
major dial is graduated in scale from to 10, while 
a minor dial (the short scale of the vernier) gives 
increments of subdivisions of each division recorded. 
Each data dial enters one digital number into the 
system. The process operator sets the potentiom- 
eter at one of the major divisions, i. e. , 1, 2, . . . 9, 
and that digital integer is entered into the system. 
The digital integer entered is translated by the po- 
tentiometer to give out an analog value between and 
-32, 000. This analog value is then converted by the 
data entry dial read routine to a floating point number 
between 0. and 9.9; this number is finally trans- 
formed and truncated to an integer value that lies 
within the range of through 9. The data entry dial, 
routine then transmits to the calling program a 16- 
element linear matrix containing the digital values 
for all 16 data entry dials. The calling routine can 
combine these integer values to produce the desired 
digit-coded information. 



button. This causes a process interrupt; the two 
minute normal scan program is then loaded to core 
and executed. Some of the process operator's con- 
sole programs are also executed via the data entry 
dials. The operator sets the required data entry 
dials, and pushes the associated function button. 
The proper program is loaded; it interrogates the 
data dials; and then performs the operation requested. 



Digital Input Switches 

These 16 switches are connected to one digital input 
word. In the sample system, eight of these switches 
are used to define whether a given closed-loop is 
on-line or off-line. Before the system outputs a 
pulse to a setpoint station or scans the closed-loop 
control point, it first executes a read-and--expand 
function on this digital input word. It then interro- 
gates each bit read to determine whether that loop is 
on-line or off-line. If the loop is off-line, no con- 
trol function is performed. 



Digital Data Display 

The data output side of the process operator's con- 
sole is divided into three sections. The first section 
is a set of nixi tubes for displaying digital data. These 
are used as a counter of the number of pulses given 
to the setpoint stations. The counter is manually 
reset from the operator's console. In a normal oper- 
ating system, there is very little need for such a de- 
vice, but it was found desirable to have it for experi- 
mental purposes on this system. 



Setpoint Station Movement Indicators 

This section consists of 16 lights , two for each set- 
point station. One of the pair of lights per loop in- 
dicates whether the setpoint positioner is moving up, 
while the other light indicates the setpoint positioner 
is moving down. The lights are operated by digital 
output. 



Function Buttons 



D3M 1053 Printer 



Each function button is connected to one process in- 
terrupt. The operator depresses a function button 
depending upon the function required from the con- 
sole. An example might be an operator call for de- 
mand scan of operator guide points; all that is re- 
quired of the operator is to depress the proper 



This is used for outputting data, such as periodic 
logs, that the user requests. The process operator's 
console is simple to use and provides an efficient 
solution for man/machine interface problems on the 

system. 
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SYSTEM DOCUMENTATION 

One of the most important and the most often neglec- 
ted aspects of control systems is proper system 
documentation. The following paragraphs explain 
the need for this vital part of planning and installa- 
tion. 



Aid in System Debugging 

A control system application is not solely a conglom- 
eration of multiple programs working independently 
of one another. It is, rather, one big program that 
has been highly segmented. In order to insure cor- 
rect communications between all program segments, 
a condensed picture of the system is needed, to show 
the interconnections between all program segments, 
their interactions, what common variables they ref- 
erence, and how these programs are sequentially or 
randomly executed. 



Basic System Documentation Needed 

Documentation that can be maintained is the key to 
understanding and success of the system. The first 
supporting procedural device is an overall system 
flow chart that illustrates the basic interactions be- 
tween programs (see Figure 92) . The second is the 
maintenance of a list of all tables and variables that 
are referenced by more than one program (see 
Tables 14 and 15). Information is required to show 
what programs reference these system variables and 
which programs modify them. The third item is a 
specification sheet describing each log in the system 
(see Table 16). The fourth item is a specification 
sheet on each program, that briefly tells what the 
program does, what variables are referenced, what 
files are referenced, what programs call this pro- 
gram, what other programs this program calls, and 
any other information that has to do with the integra- 
tion of this program into the system (see Table 17). 



DESCRIPTION OF SAMPLE SYSTEM FLOWCHART 

The sample system flowchart (see Figure 92) illus- 
trates overall system operation and points out se- 
quential, random, and time-based operations in a 
single flowchart. The flowchart is concerned only 
with the relationship between various programs with- 
in the system, not with the happenings within a pro- 
gram. It describes how programs are initiated and 
how they exit. Note that some program blocks are 



self-contained; that is, they neither cause another 
program to be initiated nor are they initiated by 
another program. They are triggered only by a 
random event, such as a process interrupt, and, 
once executed, perform only an exit. On the sample 
system flowchart, both chaining and queue ing from 
one program to another are represented in the 
same manner because they constitute, basically, 
the same function. The main difference between 
them is that a CALL QUEUE may allow other pro- 
grams to "sneak in" between the sequential execu- 
tion of the calling program and the called program. 
Note also that two programs, SCHED and TCONT, 
call themselves with a time delay and thus insure 
that they are periodically executed. The TCONT 
program may have its chain of execution broken by 
the program TEBRT. This means that TCONT is 
periodic only for a certain duration of time and that 
the operator may control that duration of time if he 
so desires (see Table 17: Program Data Sheets). 



CODING TECHNIQUES 

The sample system depicts the employment of 
several coding techniques which may be of value to 
the user. Three techniques are discussed in this 
section. The first two are examples of good pro- 
gramming coding practice and should help to elim- 
inate the type of system problems a user may 
encounter at TSX system installation time. The 
third coding technique illustrates how one of the 
functions on analog input can be used to advantage. 



Use of INSKEL COMMON 

INSKEL COMMON is one of the principal means by 
which coreloads and subroutines within the system 
can communicate with one another. This unique 
labelled common area is mapped each time a new 
core load is built. This means that problems can 
arise if two different core loads have INSKEL 
COMMON mapped differently. In order to avoid 
such conflicts in its use, all core loads must map 
INSKEL COMMON in the same manner. Also, for 
good coding practice, they should use the same vari- 
able names for every variable in INSKEL COMMON. 
The only way to insure this common usage is for the 
user to keypunch only one COMMON card which may 
subsequently be duplicated and inserted into each 
core load source deck. If at some later time a 
change is made to INSKEL COMMON, the new 
COMMON card may be keypunched, copies made, 
and all old COMMON cards in source decks re- 
placed. In this way, the user ensures that INSKEL 
COMMON is defined identically for all core loads. 
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CALL QUEUE OR CALL CHAIN 
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CALL INTEX 

CALL DPART 
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Figure 92. TSX Sample System Flow Chart 
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Table 14. TSX Sample System Table of Variables 



System 
Variable 


Used by 


Function 


SWO 


SCHED, SOUT, RSTAR, COLDP, GRADE 


Close Loop Control Stop 


SW1 


SCHED, COLDP 


Update day-of-week switch 


SW2 


SCHED 


Output Monday morning log switch 


SW3 


SCHED, ENDGD, RSTAR, COLDP, GRADE, MGRTP, CPJSP 


Process Control Stop Switch 


SW4 


SCHED, LEV10, SOUT 


LEVIO program section switch 


SW5 


SCHED, COLDP 


SCAN2 Execution switch 


DAY 


SCHED, RSTAR, COLDP, GRADE, SCAN2, LOG15, LOG60, SHIFT, 
COGLP, CCLSP, MGRTP, CPJSP, AIMON 


Day of week 


JOBN 


RSTAR, COLDP, GRADE, MGRTP, CPJSP, SPECL 


Next process job 


VALUE 


LEV10 


LEVIO Data input area 


RANGE 


COLDN, RSTAR, COLDP, GRADE, LOG15, TREND, CCLSP, AIMON, 
SPECL, SCALB, RCALB 


Range of analog input values for setpoint stations 


LOW 


COLDN, RSTAR, COLDP, GRADE, LOG15, TREND, CCLSP, AIMON, 
SPECL, SCALB, RCALB 


Low analog input values of setpoint stations 


SETPT 


LEV10, RSTAR, COLDP, GRADE, CCLSP, AIMON, SPECL 


Operating points for setpoint stations 


COUMT 


LEV10 


Number of pulses to be given to setpoint stations 


OFFLN 


LEVIO 


Off-line indicator for setpoint stations 


AHL 


RSTAR, COLDP, GRADE, LIMIT, COGLP, SPECL 


High limits for op-guide points 


ALL 


RSTAR, COLDP, GRADE, LIMIT, COGLP, SPECL 


Low limits for op-guide points 


A 


COLDN, RSTAR, COLDP, LOG15, TREND, AIMON, SPECL, SCALB, RCALB 


Conversion factor A for op-guide points 


B 


COLDN, RSTAR, COLDP, LOG15, TREND, AIMON, SPECL, SCALB, RCALB 


Conversion factor B for op-guide points 


IBASE 


SCHED, COLDP 


Base time for LOG15 


IBASZ 


SCHED, COLDP 


Base time for LOG60 


IBAZZ 


SCHED, COLDP 


Base time for SHIFT 


G 


CONVR, COLDN, COLDP, CMIPT 


Conversion factor G for data entry dials 


H 


CONVR, COLDN, COLDP, CMIPT 


Conversion factor H for data entry dials 


IENDT 


RSTAR, COLDP, GRADE, MGRTP, CPJSP 


Grade termination time 


IPERD 


STRND, TCONT 


TREND execution period 


ITCNT 


TCONT, TABRT, STRND 


Number of times TREND is to be executed 


IPONT 


TREND, STRND 


Point or Loop for TREND to log 



Table 15. Disk File Organization 



FILE 


RECORD 


VARIABLES 


REFERENCING PROGRAMS 


1 


1 


RANGE, LOW, A, B 


COLDN, RSTAR, COLDP, SPECL, 
SCALB, RCALB 


1 


2 


G, H 


COLDN, COLDP 


2 


1-100 


1, ITIME, SETPT, 
AHL, ALL 


GRADE, SPECL, CMIPT 


3 


1 


JOBN, DAY, IENDT 
SW3 


RSTAR, COLDP, GRADE, MGRTP, 
CPJSP 


3 


2 


SETPT 


RSTAR, COLDP, GRADE, CCLSP 


3 


3 


AHL, ALL 


RSTAR, COLDP, GRADE, COGLP 
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Table 16. Log Description 



NAME 


TYPE 


INFORMATION 


RECIPIENTS 


SCANZ 


Periodic/Asynchronous 
(2 minute period) 


Out of Limit Condition! 
on operator guide points 


Process Operator 




LOG 15 


Periodic/Synchronous 
(15 minute period on 
the quarter hour) 


Present value of all 
analog input points 


Process Operator, Foreman 




LOG60 


Periodic/Synchronous 
(1 hour period on the 
hour) 


Summary of last hour's 
production 


Process Operator, Foreman, 


Supervisor 


SHIFT 


Periodic/Synchronous 
(8 hour period at 0:15, 
8:15, and 16.15) 


Summary of last shift's 
production 


Process Operator, Foreman, 


Supervisor 


WEEK 


Periodic/Synchronous 
(every week at 8:30 
Monday morning) 


Summary of last week's 
production 


Foreman, Supervisor 





Use of FORTRAN Files 

FORTRAN files form the second means of communi- 
cations among programs in TSX. The use of 
FORTRAN files, when compared to INSKEL COMMON, 
introduces an added complication. Not only are the 
files mapped at core load build time according to the 
number of records and the size of a record, but, in 
addition, each time they are read or written, the 
definition of the file contents takes place. At read/ 
write time, the relative locations of variables within 
the record are mapped. In order, therefore, to in- 
sure proper communications between all programs 
that use FORTRAN files, the user must insure that 
all defined file cards, asterisk file cards, and read/ 
write statements to files and records are the same. 
This may be accomplished by punching only one card 
for each of the above file reference statements and 
duplicating this card where needed in source pro- 
grams. In this way, the user insures that the vari- 
able list is the same for each record within the sys- 
tem. 



Use of Analog Input Read-and-Expand Function 

The read-and-expand function for the AISQN subrou- 
tine is the most versatile of all of the analog input 
calls. With this call the user is able to handle each 
analog input point as it comes in, and to simultan- 
eously insure that the rate of input of analog input 
points is a maximum. The read-and-transfer func- 
tion operates as follows: after one analog input point 
has been read into core, and conversion has been 
started on the next sequential point, the analog input 
subroutine transfers control to a user's subroutine, 
which can manipulate this point in any desired way 



while the next analog input point is being converted. 
The value just read can be transformed into engi- 
neering units, checked for out-of -limit conditions, 
and used in setting-up a control function. 

All of these manipulations can be performed 
within the user's subroutine. This allows the sys- 
tem to achieve maximum overlap of data input and 
computation. In the sample system, the read-and- 
transfer function is used only in the SCAN2 program; 
it could also have been effectively used in the LEV10 
program and, in fact, wherever analog input is 
used. 



SYSTEM GENERATION 

The entire system generation procedure for the 
sample system can be viewed on a step-by-step 
basis from the system and list printer output list- 
ings (see Program Listings No. 9: System Gener- 
ation) . These cover the initial writing of addresses 
on the disk cartridges, to the calibration of instru- 
ments (before a cold start is performed). Two items 
are excluded from the listings: the assembly of 
TASK and the assembly of the System Director. 
These two source decks have already been assem- 
bled and are in available object format. 

Step 1. The first step in generating the system is 
the writing of addresses on the disk. Step 1, in the 
listing, shows the initialization of disks on disk 
drives and 1. Note that at the time addresses 
were written on drive 0, there were no defective 
cylinders. When addresses were written on drive 1, 
three cylinders proved defective. The operator 
message states that logical cylinders /00L3 are de- 
fective, indicating that there are three consecutive 
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defective cylinders. Logical cylinder /0012 is oper- 
ational, but there is a three -cylinder gap before log- 
ical cylinder /0013 is reached. Except for one re- 
striction on its use, this disk is acceptable for TSX 
system operation. The restriction (given by an error 
message) is that a skeleton must not be built using 
this storage device; that is, the disk cartridge can- 
not be used for logical drive zero for an on-line sys- 
tem. 

Step 2. The IBM Nonprocess System is loaded to the 
disk via the System Loader. The first item printed 
out is the Assignment Table, which lists all hardware 
devices defined for this configuration, the interrupt 
level of each device, and the bit position within the 
Interrupt Level Status Word (ILSW) where the inter- 
rupt bit for each device is located. After the Assign- 
ment Table is built, absolute programs are loaded 
to disk. These are followed by IBM-supplied sub- 
routines . 

The final item in the system load operation is the 
*DEDIT function which instructs the system to re- 
serve 20 disk cylinders for the buffering of mes- 
sages and that the object machine will contain 32K 
words of core storage. 

Steps 3 through 8. These steps are concerned with 
the organization of the disks for this particular in- 
stallation. Step 3 defines the sample system as a 
two-drive system; drives and 1 are then labelled. 
Steps 6 and 7 define the configuration of these two 
drives. A differentiation is now made between the 
process and nonprocess drives. All control programs 
and components associated with the process, such as 
the skeleton and EAC, are located on logical drive 1 
while all nonprocess functions such as the FORTRAN 
Compiler and the Assembler are located on logical 
drive 0. This is the initial stage in the organization 
of the sample system. Step 8 reserves disk space 
for data files used by the system; the values that 
will be stored in the files are not defined at this 
time. 



Step 9. In step 9, the System Director, in object 
format, is stored from cards to a relocatable area 
on logical drive 1. 

Steps 10 through 23. These steps set out the compil- 
ation and assembly of all system subroutines. These 
include INSKEL interrupt subroutines, COUNT sub- 
routines, a solitary TIMER subroutine, and normal- 
ly-called subroutines. As these are compiled or 
assembled, they are stored on disk in relocatable 
format so that they will be readily available at skele- 
ton build time. Step 23 is a checkpoint along the 



system generation route; the *DUMPLET verifies 
that all subroutines necessary for the creation of 
the skeleton are properly stored on disk. 

Step 24. The actual System Skeleton building phase 
is now carried out. TASK is reloaded to core from 
cards for the first time since the commencement 
of system generation. Note that the // JOB card 
for the skeleton build function contains an "A" in 
column 15, which defines a two-drive system; this 
card must be identical to the // JOB card which 
precedes the final // END OF ALL JOBS. 

At the commencement of skeleton build, a KOC 
error message is printed, signifying that the ANINT 
subroutine (an I/O subroutine) has missed an inter- 
rupt branch table entry. The error message states 
that IAC code /0023 is missing from the Master 
Interrupt Branch Table. Since this EAC code con- 
cerns the comparator feature on the Analog Input 
Expander, and there is no comparator on the sample 
system, the error code can be ignored. After the 
skeleton map is printed, a series of K13 error 
messages is printed, indicating that certain named 
programs have not yet been built. Since these pro- 
grams cannot be built until the skeleton itself has 
been built, these errors can be ignored. Note that 
a K13 error would be significant if an operator per- 
formed a skeleton rebuild and obtained a K13 error 
message for a program that should have been on 
disk. Once the skeleton is built, it is time to com- 
pile and build the mainline core loads. 

Steps 25 through 45. All system process core loads 
are now built and stored in core image format on 
disk. At this point in time, TASK is still resident 
in core controlling the Nonprocess Monitor. Step 30 
is of special interest; three dummy core loads are 
provided in the system to be referenced on a DUP 
*DELETE card, when it is desired to modify any of 
the core loads in the system. For example, if core 
load GRADE contains an error, and it is desirable 
to recompile GRADE and restore it on disk, the first 
thing that must be carried out before this can be done 
is to delete the old version of GRADE. If, however, 
the system is on-line at the time GRADE is deleted, 
a core load must be available on disk which can be 
loaded and executed when the core load name GRADE 
is called after its deletion, but before storage of 
its replacement. Since a straight delete of GRADE 
is not possible, it is preferable to replace GRADE 
with a dummy core load until such time as its new 
version becomes resident on disk. 

Between steps 44 and 45, TASK is eliminated from 
core, and system operation is initiated by a cold 
start which specifies COLDN as the initial core 
load. The function of COLDN is to provide perpetual 
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time-sharing so that the Nonprocess Monitor may be 
used to execute user-written nonprocess core loads 
during system generation. It is necessary to exe- 
cute these nonprocess core loads during system gen- 
eration because there are certain data areas that; 
must be initialized prior to a process cold start. 
There are also four nonprocess core loads that will 
be executed in the time-shared mode, at a later 
time, that affect process operation. 

Step 45 is concerned with the compilation and 
execution of a one -time -only core load, named 
SPECL, which is used to place initial values in the 
process. 

Steps 46 through 51. Once the job file is initialized, 
step 46 compiles and stores the first of the calibra- 
tion core loads. As soon as this core load is stored 
on disk, it is executed at step 47 to obtain initial 
calibration factors for closed loops 7 and 8. Steps 
48 through 51 cover the calibration of other analog 
input points in the system. 

Steps 52 through 54. At step 52, the program which 
will be used to update the job files on disk, as new 
grades of paper are placed in the process job sched- 
ule, is compiled and stored. It is executed at step 
53 to ensure that it functions correctly. Step 54 is 
the final step in the system generation procedure; an 
*DUMPLET is performed on both drives to ensure 
that all core loads and data areas are correctly de- 
fined on disk. At this point, the sample system is 
ready to be placed on-line to control the paper 
machine. 



ON-LINE OUTPUT FROM THE SAMPLE SYSTEM 

Samples of output listings obtained during on-line 
continuous operation of the sample system are given 
at the end of this section (see Program Listing No. 
10: On-Line Process Output) . The specimen list- 
ings illustrate process operator, supervisor, and 
time -shared output. 

Output 1. This is generated at cold start time on the 
process operator's 1053 Printer. It reveals the cold 
start procedure and continues with a typical sample 
output over the next few hours of processing on the 
same printer. Note that at cold start time, a proc- 
ess job sequence number of zero is supplied to the 
system; the sample system went, therefore, into a 
production stop state. Two minutes later, the first 
process job number is entered into the system from 
the process operator's console. When the process 



operator receives a signal that the paper machine 
is ready to go on-line with this grade of paper, he 
depresses the abort-grade button which initiates 
the production of grade 12345; this grade had been 
entered into the queue sequence a minute earlier. 
At the start of grade 12345, the production time is 
printed as one hour and 29 minutes; the start time 
is recorded as 8:03 a.m. , Friday. At this stage, 
the high and low limits for all operator guide points 
as well as set point values for the set point stations 
are printed. At 8:05 a.m. , the operator at the 
process operator's console changes the set point 
value for loop 7 to a value of 50. Note that the 
normal scan of the operator guide points is execu- 
ted every two minutes. At 8:15 a.m. , the first 
quarter hour log is printed. As can be seen from 
the listing, closed loop 7 is now on set point value. 
It should be noted that the set point range for ac- 
ceptable values is within plus or minus one of the 
actual set point value. Following the 8:15 a.m. 
quarter hour log, the shift-end log is printed. At 
9:00 a.m. , the first of the periodic one-hour logs 
is printed. 

Output 2. This output is on the process operator's 
1053 printer and shows three of the operator con- 
sole functions being executed. The first function 
occurs at 11:28 a.m. , Friday and consists of 
changing the high and low limits on operator guide 
point 5. Note that two minutes later point 5 is 
recorded as being out of limits, and calls for a de- 
mand scan, at which time no limit violation is re- 
corded. Four minutes later, at 11:34 a.m. , the 
operator calls for complete information on operator- 
guide point 5. The value of point 5 is recorded; its 
high and low limits and the two conversion factors 
are printed. 

Output 3 . Output 3 shows two of the other functions 
which can be performed from the process operator's 
console. The first is the calling of a trend log on 
operator guide point 6. The operator specifies to the 
system through the console that he wants a trend log 
on operator guide point 6 every ten seconds, and 
that he wants this trend log repeated 300 times. This 
is followed by the output from the trend log. 

Between the normal scan at 9:17 a.m. and the 
next normal scan at 9:19 a. m. , eleven values of the 
trend log are printed. (In normal operations, with- 
in a two -minute period, twelve trend logs would be 
printed.) The reason for the eleven printed values 
is because the last trend log and the normal scan 
are both queued at the same time, and that the 
normal scan is queued with a higher value than the 
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trend log. The normal scan is therefore printed 
first with only eleven trend logs between it and the 
preceding normal scan. After only nineteen trend 
logs have been printed, the operator decides to abort 
the trend operation before it runs to completion, by 
depressing the abort trend log function button on his 
console. At 9:21 a.m., the sequence of process jobs 
is changed when the operator enters a new sequence 
number of zero into the system . This is done be- 
cause the operator wants the computer to go into a 
suspended state, as far as the paper machine is con- 
cerned, when the current job runs to completion. It 
also means that the paper machine is being taken 
off computer control. At 9:23 a.m. , the manufac- 
turing process of this grade of paper comes to an 
end; the system then recognizes that the operator 
has changed job sequences to indicate that it is now 
time for a production stop. This occurs at 9:25 a.m. 
The operator now enters a new job number, 35, so 
that when the paper machine is ready to commence 
a new cycle of operation, all he need do is to hit the 
grade abort function switch to bring the process back 
under control. 

Output 4. Output 4 shows how the operator changes 
the job sequence so that a different grade of paper 
can be made when a present grade under production 
is completed. At 12:26, the production on the pre- 
ceding grade of paper being completed, the new 
grade, 4530 (which the operator has entered into the 
system), is initiated. 

Output 5. Output 5 shows the printout on the process 
operator's 1053 Printer at the time of a reload con- 
dition. At this point, an intentional reload of the sys- 
tem is caused by bringing about an op-code violation 
in the Skeleton by depressing stop, reset, start. Fol- 
lowing the normal scan at 9:06 a.m. , the EAC reload 
message is printed. The cold start core load which 
determines that this is a reload operation then prints 
the message: Process Restart Checkpoint. At this 
time, all of the variables in INSKEL COMMON have 
been reinitialized, and the system is back in control 
of the process. Following the normal scan at 9:07 
a. m. , the quarter hour log, the one hour log and the 
shift-end log are printed. These are printed at this 
time to assure the operator that the system is run- 
ning correctly and that all functions are operating. 



Note that at 9:10 a.m. the operator performs a de- 
mand scan and is told that a limit violation has oc- 
curred on point 5. 

Output 6. Output 6 demonstrates what happens when 
an error occurs in a nonprocess time-shared job. 
On Wednesday at 13:56, a time-shared nonprocess 
program is executed while the process is being 
monitored. This time-shared program which con- 
tains a FORTRAN I/O error thus causes the sys- 
tem to abort that job. Note that this has no effect 
on the control of the process. 

Output 7. Output 7 demonstrates the use of the 
TSX C.E. interrupt routine to bring logical drive 
on-line. (Logical drive had been taken off-line 
prior to 9:02 a.m. on Tuesday.) This means that 
the system is operating with only the process cart- 
ridge on-line. At 9:02 a. m. , it was decided to run 
some non-process jobs; it therefore became neces- 
sary to place a nonprocess cartridge on logical drive 
zero and to bring that drive on-line. 

Before the drive is brought on-line through the 
use of the TSX C.E. interrupt program, the operator 
first calls in his C.E. unmasked core load via the 
console interrupt. Once the message is printed, 
stating that this core load is in core, he depresses 
the C. E. interrupt button. This brings the C. E. 
interrupt routine into core; the operator then pro- 
ceeds to bring logical drive on-line. Once the drive 
is on-line, normal process control continues, and the 
operator is now able to execute time- sharing jobs. 

Output 8. Output 8 is on the foremen's 1053 Printer. 
This shows two things: first, that information is 
given to the foreman, and the extent to which it varies 
from that supplied to the process operator. It also 
shows at what time system operation is terminated 
after a period of continuous operation. Note too, 
that the Monday morning report is printed exactly on 
time at 8:30 a.m. 

Output 9 . Output 9 is from the nonprocess time- 
shared side of the sample system. It shows what is 
printed on the 1443 Printer at the time the job files 
on disk are updated with data on new grades of paper 
to be produced. 
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Table 17. Program Data Sheets 

These are specifications sheets of each program used 
in the TSX Sample System (see Basic System Docu- 
mentation Needed). Each encircled listing number in 
the table corresponds to its exact counterpart in 
Program Listing No. 9: System Generation. 



Listing No. \J^V 


Listing No. V J 




Program. SCHED 


Program. SOUT 




Type. INSKEL CALL COUNT Subroutine 


Type. INSKEL CALL TIMER Subroutine 




Description. This subroutine schedules the periodic execution 
of the programs listed in the external statement. This sub- 
routine is entered every 20 seconds. 


Description. This subroutine services timer 5 and is used for 
initiating entries into the level 10 subroutine for Xhe out- 
putting of pulses to the set point stations. 


System Variables Referenced. SWO, SW1, SW2, SW3, SW4, 
5W5, DAY, IBASE, IBASZ, IBAZZ. 


System Variables Referenced. SWO, SW4 
Files Referenced. None 




Files Referenced. None 

Programs Called. SCHED, SCAN2, LOG15, LOG60, SHIFT, 
WEEK 


Programs Called. None 
Calling Programs. LEV10 




Calling Programs. RSTAR, COLDP, GRADE 


System Subroutines C ailed. None 




System Subroutines Called. None 


Restart Core Load. N/A 




Restart Core Load. N/A 






® 


Listing No. VJ> 


) 


Program. LEV10 


Program. QUE15 




Type. INSKEL INTERRUPT Subroutine 


Type. INSKEL INTERRUPT Subroutine 




Description. This subroutine does closed loop control of eight 
set point stations. Every twenty seconds, the scheduler 
subroutine gives a call level to this routine and sets SW4 to 
point to the scan section such that all eight points are 
scanned. When the scan is finished, the output to each on- 
line station is computed and the first pulse output is given. 
Timer B is then used to set-up fifteeh millisecond entries 
into the subroutine so that all necessary pulses are given. 


Description. This subroutine queues the fifteen minute log routine 
on demand. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. LOG15 


System Variables Referenced. OFFLN (1-8), SW4, 
VALUE (6-13, 15)SETPT (1-8), COUMT (1-8) 

Files Referenced. None 

Programs Called. SOUT 


Calling Programs. None 

System Subroutines C ailed. None ■ 

Restart Core Load. N/A 




Calling Programs. None 






System Subroutines Called. None 






Restart Core Load. N/A 
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Listing No. 

Program. TCONT 

Type. INSKEL CALL COUNT Subroutine 



Description. This subroutine periodically queues the trend 
log program the number of times specified. 

System Variables Referenced. ITCNT 

Files Referenced. None 

Programs Called. TREND, TCONT 

Calling Programs. TCONT 

System Subroutines Called. None 

Restart Core Load. N/A 



® 



Listing No. 
Program. GETVL 
Type. USER Subroutine 



Description. This subroutine reads the analog input value for 
each of the sixteen data entry dials. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. None 

Calling Programs. CONVR, CMIPT 

System Subroutines C ailed. None 

Restart Core Load. N/A 



© 



Listing No. 



Program. TABRT 

Type. INSKEL INTERRUPT Subroutine 

Description. This subroutine aborts the trend log on 
demand. 

System Variables Referenced, ITCNT 

Files Referenced. None 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 



® 



Listing No. 



Program. CONVR 

Type. USER Subroutine 

Description. This subroutine scans the 16 data entry dials at 
the process operator's console and converts them to an 
integer value with range to 9. 

System Variables Referenced. G(l-16), H(l-16) 

Files Referenced. None 

Programs Called. None 

Calling Programs. COGLP, CLLSP, MGRTP, CPJSP. STRND, 

— mim — 

Systems Subroutines Called. GETVL 
Restart Core Load. N/A 
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Listing No. 

Program. PT1ME 

Type. USER Subroutine 

Description. This subroutine reads the clock and converts 
the time to a floating point number with the decimal 
point separating hours and minutes. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. None 

Calling Programs. RSTAR, GRADE, SCAN2, LOG15, 

L5G60, SklFT, WEEK, COGLP, CCLSP, CPJSP, AJMON 

Syste m Subroutines C ailed. None 

Restart Core Load. N/A 



® 



Listing No. 

Program. ISBAD 

Type. USER Subroutine 

Description. This subroutine gets the address of the entry 
point to a subroutine 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. None 

Calling Programs. None 

System Subroutines C ailed. None 

Restart Core Load. N/A 
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Listing No. 

Program. IADDR 

Type. USER Subroutine 

Description. This subroutine gets the address of a 
FORTRAN variable. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 



Listing No. 

Program. CESET 

Type. INSKEL INTERRUPT Subroutine 

Description. This subroutine queues the CE unmask program 
so that devices may be taken off-line or put on line. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. CEINT 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 
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Listing No. 

Program. ABORT 

Type. INSKEL INTERRUPT Subroutine 



® 



Description. This subroutine queues the grade change program 
causing the present grade to be aborted. 

System Variables Referenced. None 

Files Referenced . None 

Programs Called. GRADE 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 



Listing No. 

Program. COLDN 

Type. MAINLINE CORE LOAD 



® 



Description. This cold start core load is used to give 
perpetual time sharing. 

System Variables Referenced. RANGE, LOW, A, B, G, H 

Files Referenced. 

File % Records 1 + 2 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. COLDN 



Listing No. 



® 



Program. ENDGD 

Type. INSKEL CALL COUNT Subroutine 

Description. This subroutine aborts the grade in progress 
when the run time for that grade has elapsed. 

System Variables Referenced. SW3 

Files Referenced. None 

Programs Called. GRADE 

Calling Programs. RSTAR> COLDP 

System Subroutines Called. None 

Restart Core Load. N/A 



Listing No. 
Program. COLDS 



® 



Type. MAINLINE CORE LOAD 

Description. This is the normal cold start core load. It sets 
time sharing time to zero so that console interrupt must 
have been pushed before logic al drive zero is ever 
referenced. This core load chains to COLDP to actually 
cold start the process. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. COLDP 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load, COLDS 
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Listing No. 

Program. RSTAR 

Type . MAINLINE CORE LOAD 

Description. This is the system restart core load. Whenever 
a restart condition occurs, this routine is loaded to variable 
core to make sure system constants in INSKEL COMMON 
are valid. 

System Variables Referenced. SWO, SW3, RANGE, LOW, A, 
B, JOBN, DAY, IENDT, AHL, ALL, SETPT 

Files Referenced. 
File 1 Record 1 
File 3 Records 1, 2, 3 

Programs Called. SCHED, GRADE, ENDGD 

Calling Programs. None 

System Subroutines Called. PTIME 

Restart Core Load. COLDS 
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Listing No. 

Program. CEINT 

Type. MAINLINE CORE LOAD 

Description. This core load is for use with the CE interrupt. It 
makes sure that all levels are unmasked after use of the CE 
interrupt routine. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. None 

Calling Programs. CESET 

System Subroutines Called. None 

Restart Core Load. CEINT 
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Listing No. 

Program. COLDP 

Type. MAINLINE CORE LOAD 

Description. This is the system process cold start and reload 
core load. If sense switch 6 is on, it does a process 
cold start and if sense switch 6 is off it assumes a reload 
condition has occurred so that it initializes the system to 
the last check point. 

Syst em Variables Referenced. SWO, SW1, SW3, SW5, 
RANGE, LOW, DAY JOBN, A, B, SETPT, AHL, ALL, 
IENDT, G, H 

Files Referenced. 

File 1 Records 1, 2 
File 3 Records 1, 2, 3 

Programs Called. SCHED, GRADE, ENDGD 

Calling Programs. COLDS 

System Subroutines Called. None 

Restart Core Load. COLDS 



Listing JNo. 
Program. DUM 

Type. MAINLINE CORE LOAD 

Description. This is a dummy core load for use in replacing 
or deleting system core loads. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. DUM 
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Listing No. 

Program. IDUM 

Type. INTERRUPT CORE LOAD 

Description. This is a dummy core load for use in replacing 
or deleting system core loads. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called . None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 
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Listing No. 

Program. GRADE 

Type. MAINLINE CORE LOAD 

Description. This program starts the production of a new grade. 

System Variables Referenced. SWO, SW3, DAY, JOBN, RANGE, 
LOWAHL, ALL, SETPT, IENDT 

Files Referenced. 
File~5 
File 3, Records I, 2, 3 

Programs Called. SCHED 

Calling Programs. ABORT, ENDGD, RSTAR, COLDP 

System Subroutines Called. PTIME 

Restart Core Load. RSTAR 
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Listing No. 

Program. CDUM 

Type. COMBINATION CORE LOAD 

Description. This is a dummy core load for use in replacing 
or deleting system core loads. 

System Variables Referenced. None 

Files Referenced. None 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. CDUM 



Listing No. 

Program. SCAN2 

Type. COMBINATION CORE LOAD 

Description. This combination core load scans all of the Op- 
guide points on the system and notes any limit violation to 
the operator. 

System Variables Referenced. DAY 

Files Referenced. None 

Programs Called. None 

Calling Programs. SCHED 

System Subroutines Called. PTIME, LIMIT 

Restart Core Load, RSTAR 
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(32) 

Listing No. x_X 


® 

Listing No. N — ' 


Program. LIMIT 


Program. LOG60 


Type. USER Subroutine 


Type. MAINLINE CORE LOAD 


Description. This subroutine is the subroutine to be used in 
the AIS read and transfer function of the mainline core 
load. 


Description. This program puts out the hour log. 
System Variables Referenced. DAY 


System Variables Referenced. AHL, ALL 


Files Referenced. None 


Files Referenced. None 


Programs Called. None 


Programs Called. None 


Calling Programs. SCHED 


Calling Programs. SCAN2 


System Subroutines Called. PTIME 


System Subroutines Called. NONE 


Restart Core Load. RSTAR 


Restart Core Load. N/A 




® 


® 


Listing No. 


Listing No. 


Program. LOG 15 


Program. SHIFT 


Type. MAINLINE CORE LOAD 


Type. MAINLINE CORE LOAD 


Description. This is the fifteen minute log program which logs 
the values of all process variables in the system. 

System Variables Referenced. DAY, B(l-40), A(l-40), 
LOW(l-8), RANGE(l-8) 


Description. This program outputs the shift log. 
System Variables Referenced. DAY 
Files Referenced. None 


Files Referenced. None 


Programs Called. None 


Programs Called. None 


Calling Programs. SCHED 


Calling Programs. SCHED, QUE15 


System Subroutines Called. PTIME 


System Subroutines Called. PTIME 


Restart Core Load. RSTAR 


Restart Core Load. RSTAR 
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Listing No. \^S 

Program. WEEK 

Type. MAINLINE CORE LOAD 

Description. This program outputs the weekly Monday 
morning log. 

System Variables Referenced. DAY 

Files Referenced. NONE 

Programs Called. None 

Calling Programs. SCHED 

System Subroutines Called. PTIME 

Restart Core Load. RSTAR 


r v (M) 

Listing No. \*^S 

Program. COGLP 

Type. INTERRUPT CORE LOAD 

Description. This core load changes the limits on operator- 
guide points at operator request. 

System Variables Referenced. AHL, ALL, DAY 

Files Referenced. 
File 3, Record 3 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. PTIME, CONVR 

Restart Core Load. N/A 


® 

Listing No. 

Program. TREND 

Type. MAINLINE CORE LOAD 

Description. This is the trend log core load. It reads the 
value that the operator has asked. It is queued 
periodically by the TCONT subroutine with the period 
specified by the operator. 

System Variables Referenced. IPONT, LOW, RANGE, A, B 

Files Referenced. None 

Programs Called. None 

Calling Programs. TCONT 

System Subroutines Called. None 

Restart Core Load, RSTAR 


® 

Listing No. 

Program. CCLSP 

Type. INTERRUPT CORE LOAD 

Description. This core load changes the set point value for a 
set point station upon operator request. 

System Variables Referenced. RANGE, LOW, SETPT, DAY 

Files Referenced. 
File 3,Record 2 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. CONVR, PTIME 

Restart Core Load. N/A 
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Listing No. 

Program. MGRTP 

Type. INTERRUPT CORE LOAD 

Description. This core load changes the run time for a 
grade upon operator request. 

System Variables Referenced. IENDT, JOBN, DAY, SW3 

Files Referenced. 
File 3, Record 1 

Programs Called. None 


® 

Listing No. 

Program. STRND 

Type. INTERRUPT CORE LOAD 

Description. This core load initiates a trend log of the point 
specified by the operator. 

System Variables Referenced. IPONT, IPERD, ITCNT 

Files Referenced. None 

Programs Called. None 

Calling Programs. None 

System Subroutines Called CONVR 

Restart Core Load. N/A 


Calling Programs. None 

System Subroutines Called. CONVR 

Restart Core Load. N/A 


® 

Listing No. 

Program. CPJSP 

Type. INTERRUPT CORE LOAD 

Description. This core load changes the sequence of 
gTades upon operator request. 

System Variables Referenced. JOBN, DAY, IENDT, SW3 

Files Referenced. 
File 3, Record 1 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. CONVR, PTIME 

Restart Core Load. N/A 


® 

Listing No. 

Program. AIMON 

Type. INTERRUPT CORE LOAD 

Description. This core load logs all information about any 
point in the system. 

System Variables Referenced. A, B, DAY, LOW, RANGE, 
SETPT 

Files Referenced. None 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. PTIME, CONVR 

Restart Core Load. N/A 
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Listing No. 

Program. SPEG1 

Type. NONPROCESS CORE LOAD 



Description. This is a special one-time-only core load to set 
up the job files on disk for test purposes. 

System Variables Referenced. AHL, ALL, A, B, RANGE, 
LOW, SETPT(l-8) JOBN 

Files Referenced . 

File 1, Record I - RANGE, LOW, A, B 

File 2, Record 1 - J, ITBME, SETPT, AHL, ALL 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 



Listing No. 
Program. RCALB 



® 



Type. NONPROCESS CORE LOAD 

Description. This nonprocess core load is for calibrating 
the analog input points for Op-guide. 

System Variables Referenced. A, B, RANGE, LOW 

Files Referenced. 
File 1, Record 1 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 



Listing No. 
Program. SCALB 



® 



Type. NONPROCESS CORE LOAD 

Description. This nonprocess core load is for calibrating 
the set point stations. 

System Variables Referenced . RANGE, LOW, A, B 

Files Referenced. 
File 3, Record 1 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 



Listing No. 

Program. CMIPT 

Type. NONPROCESS CORE LOAD 

Description. This nonprocess core load is for calibrating 
the data entry dials. 

System Variables Referenced . G(I-16), H(l-16) 

Files Referenced. 
File I, Record 2 

Programs Called . None 

Calling Programs. None 

System Subroutines Called. GETVL 

Restart Core Load. N/A 
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Listing No. 

Program. LOADJ 

Type. NONPROCESS CORE LOAD 

Description. This program loads the process job files on disk 
with data read from cards. 

Syste m Variables Referenced. None 

Files Referenced. None 

Programs Called. None 

Calling Programs. None 

System Subroutines Called. None 

Restart Core Load. N/A 
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PROGRAM LISTING NO. 9: SYSTEM GENERATION 



© 



© 



TASK 1800 TSX-II-1 SAMPLE SYSTEM 
SEN SW ON FOR ABSOLUTE LOADER 
SEN SW 1 ON FOR NONPROCESS MONITOR 
SEN SW 2 ON FOR SKELETON BUILDER 

TASK DISK WRITE ADDRESSES PROGRAM 
ENTER NO. TRIES ON DATA SW MAX001F 
DATA SWITCHES EQUAL LOGICAL DRIVE 
DRIVE CODES — HEX 0000 0001 0002 
THERE ARE NO DEFECTIVE CYLINDERS 
SEN SW ON GO TO TASK OFF REDO 
TASK DISK WRITE ADDRESSES PROGRAM 
ENTER NO. TRIES ON DATA SW MAX001F 
DATA SWITCHES EQUAL LOGICAL DRIVE 
DRIVE CODES — HEX 0000 0001 0002 
CYLINDERS 0013 0013 0013 

ARE DEFECTIVE 
DO NOT USE SKEL.BLD WITH THIS PACK 

SEN SW ON GO TO TASK OFF REDO 
TASK 1800 TSX-II-1 SAMPLE SYSTEM 
SEN SW ON FOR ABSOLUTE LOADER 
SEN SW 1 ON FOR NONPROCESS MONITOR 
SEN SW 2 ON FOR SKELETON BUILDER 



, 1 //SYSTEMLOADER 

*•) //* IBM 1800 TSX-II SAMPLE SYSTEM 
♦ASSIGNMENT 

00 01 33 

01 02 04,33 

02 02 00,08 

03 02 02/02,33 

04 03 01/01,36/04,37/05 

05 04 33,06/03,11,12 

06 03 10,34,33 

07 04 03/07,32,20,16 

08 01 33 

09 01 33 

10 01 33 

11 01 33 

12 01 33 

13 01 33 

14 01 33 

15 01 33 
99 01 42/06 

DEVICE LEV BIT IAC LUN 
PISW 00 00 33 
DISK-1 01 00 04 
PISW 01 01 33 
TIMERS 02 00 00 
DISK-2 02 01 08 
CARD-1 03 00 02 02 
PISW 03 01 33 
TYP1G1 04 00 01 01 
TYP2G1 04 01 36 04 
TYP3G1 04 02 37 05 
PISW 05 00 33 
PRNT-1 05 01 06 03 
DINP 05 02 11 
DAOP 05 03 12 
ADC-1 06 00 10 
COMP-1 06 01 34 
PISW 06 02 33 
PAPTPE 07 00 03 07 
CONSOL 07 01 32 
RPQ-01 07 02 20 
ADC-2 07 03 16 
PISW 08 00 33 
PISW 09 00 33 
PISW 10 00 33 
PISW 11 00 33 
PISW 12 00 33 
PISW 13 00 33 
PISW 14 00 33 
PISW 15 00 33 
KEYB-1 42 06 

YOU DEFINED 000016 I/O DEVICES 

AND A TOTAL OF 000029 ILSW BITS 
*LDDSK .LET 

SECTOR 0155 
*LDDSK .DCOM 

SECTOR 0000 
♦LDDSK .MBT 

SECTOR 0002 



© 



Continued 

*LDDSK .SUP 

SECTOR 0005 
*LDDSK .CLB 

SECTOR 0010 
*LDDSK /CLST 

SECTOR 063A 
*LDDSK .DUP 

SECTOR 001A 
*LDDSK .ASM 

SECTOR 0066 
*LDDSK .FOR 

SECTOR 0095 
*LDDSK .SIM 

SECTOR 00F6 
*LDDSK .EPRG 

SECTOR 0618 
*LDDSK SBRT 
IAND 
CLEAR 
CLOCK 
COUNT 

DMP DMPHX DMPDC 
DMPS DMPST 
DPART 
ENDTS 
IEOR 
LD 

LEVEL 
MASK 
OPMON 
IOR 
QIFON 
QUEUE 
RESMK 
SAVMK 
SETCL 
TIMER 
UNMK 
UNQ 
VIAQ 
CONHX 
TRPRT 
FLIP 

EADD ESUB EADDX ESUBX ESBR ESBRX 
EATN EATAN 
EAVL EABS 
EAXB EAXBX 
EAXI EAXIX 

EDVR EDVRX EDIV EDIVX 
ELD ELDX ESTO ESTOX 
ELN EALOG 
EMPY EMPYX 

ESINE ESIN ECOSN ECOS 
ESQR ESQRT 
ETNH ETANH 
ETRTN ETNTR 
EXPN EEXP 

FSBR FSBRX FADD FSUB FADDX FSUBX 
FARC 

FATN FATAN 
FAVL FABS 
FAXB FAXBX 
FAXI FAXIX 
FBTD FDTB 

FDIV FDIVX FDVR FDVRX 
FIXIX FIXI 

FLO FLDX FSTO FSTOX 
FLN FALOG 
FLOAT 

FMPY FMPYX 

FSINE FSIN FCOSN FCOS 
FSQR FSQRT 
FTNH FTANH 
FTRTN FTNTR 
FXPN FEXP 
IABS 
IFIX 
NORM 
SNR 
XDD 
XMD 
XMDS 
XSQR 
BINDC 
BINHX 
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STFAC 
MDAF 



Continued 

DCBIN 

EBPA 

EBPRT 

HOLEB 

HOLPR 

HXBIN 

PAPEB 

PAPHL 

PAPPR 

PRT 

ADRCK 

COMGO COMG1 

DATSW 

OVCHK 

ESIGN 

FCTST 

FSIGN 

IOU 

ISIGN 

ISTOX 

LDFAC 

MDFIO 

MDFND 

MFIO MRED 

MGOTO MFIF 

MIAR MIARX 

OVERF 

PAUSE 

REWND 

SAVE 

SLITE 

SSWTC 

STOP 

SUB IN 

SUBSC 

TSTOP 

TSTRT 

TTEST 

UFIO 

PLOTX 

CARDN 

PAPTN 

MAGT 

AIPTN AIPN 

AISQN AISN 

AIRN 



SBFAC DVFAC 
MDAI MDCOM MDF 



TSET 
URED 



AIM I NT 

OINP 

DIEXP 

DICMP 

DAOP 

IOPE 

XSAVE 



VS 
VSC 
VSX 
CO 



MDFX MDI MDIX KDRED MDWRT 



MWRT 
MIIF 
MFAR 



MCOMP MIOAF MIOAI MIOFX MIOIX MIOF MIOI 

MEIF 

MFARX MEAR MEARX 



BCKSP 
IOFIX 
SLITT 



EOF 



UWRT UIOI UIOF UIOAI UIOAF UIOFX UIOIX UCOMP 



OUSLY 
XEXIT 



ETS 
XLOAD 



GAGED UNGAG 

AIP 

AIS 

AIR 

CS 

CSC 

CSX 

DAC 

OZERQ 

QZOIO 

BT1BT 

BT2BT 

FCHAR 

SCALF 

FGRID 

FPLOT 

ECHAR 

SCACE 

EGRID 

EPLOT 

POINT 

FCHRX 

FRULE 

ECHRX 

ERULE 

XYPLT 

PLOTI PLOTS 

//* SYDIR 

*DEDIT 32K 

THE SOURCE 

THE OBJECT 

END SYSTEM 



DI 
DIC 
DIX 
DO 



PI 
PIC 
PIX 
PO 



FCHRI 
FMOVE 
ECHRI 
EMOVE 



WCHRI 
FINC 
VCHRI 
E1NC 



020CYL 
CORE-SIZE 
CORE-SIZE 
LOAD 



032768 
032768 
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Continued 

TASK 1800 TSX-II-1 SAMPLE SYSTEM 
SEN SW ON FOR ABSOLUTE LOAOER 
SEN SW 1 ON FOR NOMPROCESS MONITOR 
SEN SW 2 ON FOR SKELETON BUILDER 



© 



. // JOB 
3 J // * DEFINE THE SAMPLE SYSTEM TO BE A TWO DRIVE SYSTEM 
// DUP 

*DEFINE NDISK 2 
DUP FUNCTION COMPLETED 



© 



// JOB 
4 ) // * LABEL DISK DRIVE ZERO WITH 00000 
// DUP 

*DLABL 00000 
OUP FUNCTION COMPLETED 



© 



- » // JOB 

) // * LABEL DISK DRIVE ONE WITH 11111 

// DUP 

*DLABL 1 11111 

DUP FUNCTION COMPLETED 



© 



. . // JOB X X 

6 ) // * DEFINE DRIVE ZERO CONFIGURATION 

// DUP 

*DEFINE CONFG COPO 

DUP FUNCTION COMPLETED 



© 



, •» // JOB X X 

I ) // * DEFINE DRIVE ONE CONFIGURATION 

// DUP 

*DEFINE CONFG SX INI 1 1DE1M1 F1P 1 16000 16767 080 

DUP FUNCTION COMPLETED 



010 05 
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// JOB A 

// * SET UP FILES FILE1, FILE2, AND FILE3 ON DRIVE ONE 

// DUP 

*STOREDATAD 1 1 FILE1 002 

DUP FUNCTION COMPLETED 

*STOREDATAD 1 1 FILE2 100 

DUP FUNCTION COMPLETED 

*STOREDATAD 1 1 FILE3 003 

OUP FUNCTION COMPLETED 



© 



// JOB A 

// * STORE SYSTEM DIRECTOR FROM CARDS ON DISK 

// DUP 

*STORE RD 1 SYDIR 

SYDIR OUTTR CHAIN INTEX SHARE SPECL BACK EACLK 

DUP FUNCTION COMPLETED 
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// JOB A 

INSKEL CALL COUNT SUBROUTINE 
// FOR 
*LIST ALL 
** PERIODIC PROGRAM SCHEDULER 

SUBROUTINE SCHED 
C 

C THIS SUBROUTINE SCHEDULES THE PERIODIC EXECUTION OF THE PROGRAMS 
C LISTED IN THE EXTERNAL STATEMENT. THIS SUBROUTINE IS ENTERED 
C EVERY 20 SECONDS. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE) 15) , SETPT ( 8 ) ,COUMT ( 8 ) , OFFLN (.8 ) 

EXTERNAL SCAN2, L0G15, L0G60, SHI FT, WEEK 

DIMENSION RANGE(8),AHL(40)>ALL(40),A<40) ,B (40 ) , LOW ( 8 ) ,G ( 16 ) , H ( 16 ) 

COMMON/ I NSKE L/SWO, SW1 , SW2, SW3, SW4, SW5 , DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,'AHL,ALL,A,B,IBASE, IBASZ, IBAZZ ,G ,H, IENDT , IPERD, ITCNT 
2,IP0NT 
C 

C SET UP NEXT ENTRY INTO THE SCHEDULER. 
C 

CALL C0UNT(0,1,20) 
C 

C INITIATE CLOSED LOOP CONTROL PROGRAM ON LEVEL 10. 
C 

GO TO (97,1),SW3 

97 GO TO (99,98),SW0 
99 CALL LEVEL) 10) 

98 SW4=1 
C 

C TEST FOR TWO MINUTE LIMIT SCAN 
C 

SW5=SW5+1 

GO TO (1,1,1,1,1,2),SW5 
2 CALL QUEUE(SCAN2,9,0) 

CALL ENDTS 

SW5 = 
1 CONTINUE 
C 

C READ CLOCK 
C 

CALL CLOCK! I) 
C 

C TEST FOR FIFTEEN MINUTE LOG 
C 

IF(IBASE)4,4,5 

4 IFI250-I )10,6,6 

5 IF( IBASE-I )6,6,10 

6 GO TO (66,67) ,SW3 

66 CALL 0UEUE(L0G15,11,0) 
CALL ENDTS 

67 IBASE=IBASE+250 
IF(IBASE-23760)10,7,7 

7 IBASE=0 

10 CONTINUE 
C 

C TEST FOR HOUR LOG 
C 

IF(IBASZ)11,11,12 

11 IF(250-I )20,13,13 

12 IFUBASZ-I )13,13,20 

13 GO TO ( 113,114),SW3 

113 CALL 0UEUE(L0G60,12,0) 
CALL ENDTS 

114 IBASZ=IBASZ+1000 
IF(23100-IBASZ)14,14,20 

14 IBASZ=0 

20 CONTINUE 
C 

C TEST FOR SHIFT END LOG AT 8.15,16.15,00.15 
C 

IF( IBAZZ-250121,21,22 

21 IF(I-1000)22,22,30 

22 IF( IBAZZ-I)23,23,30 

23 CALL 0UEUE(SHIFT,13,0) 
CALL ENDTS 
IBAZZ=IBAZZ+8000 

IF( 17000-1 BAZZ) 24, 24, 30 

24 IBAZZ=250 

30 CONTINUE 
C 

C UPDATE DAY OF WEEK 
C 

IFI 1-100)31,31,35 

31 IF(SW1)32,32,36 

32 DAY=DAY+1 
IF(8-DAY)33,33,34 
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33 
34 



DAY = 1 
SW1=1 
GO TO 
SWU-1 
CONTINUE 



36 



TEST FOR 8.30 MONDAY MORNING LOG 



IF(DAY-2)100,40,100 

40 IF( 1-8500)41,42,42 

41 SW2=-1 

GO TO 100 

42 IF(SW2)43,43,100 

43 CALL 0UEUE(WEEK,14,0) 
SW2 = 1 

CALL ENDTS 
100 RETURN 
END 
VARIABLE ALLOCATIONS 
CSWO(I*)=FFFF 



STATEMENT ALLOCATIONS 
97 =0021 99 =0027 
7 =0079 10 =007D 
22 =0069 23 =OOBF 
40 =0102 41 =0108 



1( I* 


)=FFFE 




CSW2( I 


*)=FFFD 


CSW3(I*)=FFFC 


CSW4( I*) = FFFB 




CSW5I I*)=FFFA 


98 


= 002A 


2 


= 003E 


1 


= 004A 


4 


=0051 5 


=0059 6 =005F 


66 


-0065 67 =0060 


11 


=0081 


12 


= 0089 


13 


= 008F 


113 


=0095 114 


=009D 14 =00A9 


20 


=OOAD 21 =00B3 


24 


= 00D3 


30 


= 0007 


31 


= 00DD 


32 


=00E1 33 


=OOED 34 =00F1 


35 


=00F7 36 =00FC 


42 


=010F 


43 


= 0113 


100 


= 011F 













FEATURES SUPPORTED 
ONE WORD INTEGERS 



CALLED SUBPROGRAMS 
SCAN2 L0G15 L0G60 SHIFT WEEK COUNT 



LEVEL 



QUEUE ENDTS CLOCK COMGO 



INTEGER CONSTANTS 

0=0002 1=0003 20=0004 10=0005 
23100=000C 13=000D 8000=000E 17000=000F 



9=0006 
100=0010 



CORE REQUIREMENTS FOR SCHED 
COMMON INSKEL COMMON 



250=0007 
8=0011 



11=0008 
2=0012 



23760=0009 
8500=0013 



12=000A 
14=0014 



1000=000B 



464 VARIABLES 



PROGRAM 



288 



END OF COMPILATION 



SCHED 

DUP FUNCTION COMPLETED 

*DELET SCHED 

SCHED 

D25 NAME NOT IN L/F 

*STORE 1 SCHED 

SCHED 

DUP FUNCTION COMPLETED 



® 



// JOB A 

// * INSKEL INTERRUPT SUBROUTINE 

// FOR 

*LIST ALL 



C 
C 

c 
c 
c 
c 
c 
c 
c 
c 



LEVEL 10 SUBROUTINE FOR CLOSED LOOP CONTROL 
SUBROUTINE LEV10 

THIS SUBROUTINE DOES CLOSED LOOP CONTROL OF EI 
STATIONS. EVERY TWENTY SECONDS THE SCHEDULER 
A CALL LEVEL TO THIS ROUTINE AND SETS SW4 TO P 
SECTION SUCH THAT ALL EIGHT POINTS ARE SCANNED 
FINISHED THE OUTPUT TO EACH ON-LINE STATION IS 
FIRST PULSE OUTPUT IS GIVEN. TIMER B IS THEN 
FIFTEEN MILLISECOND ENTRIES INTO THE SUBROUTIN 
NECESSARY PULSES ARE GIVEN. 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),COUMT(8) ,0FFLN(8) 

EXTERNAL SOUT 

DIMENSION IBIT(8),IBIZ(8) , I BI A ( 8 ) , I OUT ( 3) 

DIMENSION INV(17) 

DIMENSION RANGE(8),AHL(40),ALL(40),A(40) ,B(40) 

COMMON/INSKEL/SW0,SWl,SW2,SW3,SW4,SW5,DAY,J0BN 

1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ , IBAZZ ,G 

2,IP0NT 
DATA IBIT/Z4000,Z1000,Z0400,Z0100,Z0040,Z0010, 
DATA IBIZ/Z8000,Z2000,Z0800,Z0200,Z0080,Z0020, 
DATA IBIA/Z3FFF,ZCFFF,ZF3FF,ZFCFF,ZFF3F,ZFFCF, 



GHT SET POINT 
SUBROUTINE GIVES 
OINT TO THE SCAN 

WHEN THE SCAN IS 
COMPUTED AND THE 
USED TO SET UP 
E SO THAT ALL 



,L0W(8),G(16),H( 16) 
, VALUE, RANGE, LOW, SET 
,H,IENDT,IPERD,ITCNT 

Z0004,Z0001/ 
Z0008,Z0002/ 
ZFFF3,ZFFFC/ 
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Continued 

C 

C READ DIGITAL INPUT SWITCHES TO DETERMINE WHICH STATIONS ARE 

C ON-LINE. 

C 

INV(17)=64 

CALL CSXIOlOllt INV(l) ,INV(17)) 

INV(1)=0 

DO 678 J=l,8 

K = J + 8 

OFFLN(J)=INV(K) 

678 INV(l)=INV(l)+OFFLN< J) 
IFUNV(l) 1699,699,679 

699 IOUT(l)=0 
GO TO 12 

679 CONTINUE 
C 

C BRANCH ON SW4 TO EITHER SCAN SECTION OR OUTPUT SECTION. 
C 

GO TO < 1000, 3000), SW4 
1000 CONTINUE 
C 

C SCAN SECTION 
C 
C 

C SET PULSE OUTPUT WORD TO ZERO 
C 

I0UT(1)=0 

CALL AIS (02001, VALUE (6), VALUE (15), 4096) 
99 CALL AIS(O.IV) 

GO TO (99, 88), IV 
88 CONTINUE 

DO 100 J=l,8 

IF(OFFLNU) )1, 100,1 

1 IF(SETPT( J) Jill, 100, 111 
111 VAL=SETPT( J)-VALUE(J+5) 

VAL=VAL*2000. /RANGE! J) 
COUMT(J)=VAL 
IF(COUMT( J) )2, 100,4 

2 COUMT(J)=-COUMT( J) 

I0UT(1) = I0R(I0UT( 1) , IBITU1 ) 
GO TO 100 
4 I0UT(1) = I0R(I0UT( 1) , IBIZ < J) ) 

100 CONTINUE 

IF( IOUT(l) )101,12,101 

101 SW4=2 
3000 CONTINUE 

C 

C OUTPUT SECTION 

C 

I0UT(2)=126 
C 

C THE FOLLOWING BIT IS SET IN THE OUTPUT WORD FOR INCREMENTING A 
C PULSE COUNTER FOR DETERMINING THE NUMBER OF PULSES GIVEN AT 
C ANY TIME. 
C 

I0UT(1)=I0R( IOUT( 1) , IBIZ (3) ) 

CALL PO(02001,IOUT(1) ,I0UT(3) ) 
C 

C SEE WHICH POINTS ARE TO GO OUT NEXT TIME 
C 

DO 10 J=l,8 

IF(OFFLN( J) )3,9,3 

3 IF(COUMTU) )9,9,20 
20 COUMT(J)=COUMT( J)-l 

IFtCOUMT(J) )9,9,10 
9 I0UT(1)=IAND( I0UT(1),IBIA( J) ) 

10 CONTINUE 
C 

C CALL TIMER B FOR RE-ENTRY TO THTS SECTION IN 15 MILLISECONDS IF 

C THERE ARE ANY MORE PULSES TO GO OUT. 

C 

IF(I0UT(1))11,12,11 

11 CALL TIMER(S0UT,2,15) 

12 CONTINUE 
C 

C DISPLAY PULSE OUTPUT FOR VISUAL VERIFICATION OF DIRECTION OF 

C MOVEMENT. 

C 

IOUT(2)=127 

CALL P0(01001,I0UT(1) ,I0UT(3) ) 

CALL INTEX 

END 
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Continued 



VARIABLE ALLOCATIONS 

CSWOd*)=FFFF CSWK I*)=FFFE 

DAYd*) = FFF9 JOBN ( I* ) =FFF8 

COUMT( I*)=FFC7-FFC0 OFFLN( I* )=FFBF-FFB8 

IBASEd*)=FE77 I BASZ ( I* ) =FE76 

IPERDd*)=FE32 I TCNT ( I * ) = FE31 

IBIAd (=0019-0012 IOUTd )=001C-001A 



CSW2( I*)=FFFD CSW3d*)=FF.FC 

VALUE( I*)=FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 

AHL(R#)=FFB6-FF68 ALL < R* ) =FF66-FF18 

IBAZZ( I*)=FE75 G ( R* ) =FE72-FE54 

IPONTI I#)=FE30 CVAL(R )=0000 

INV(I )=002D-001D J(I )=002E 



CSW4I I*)=FFFB CSW5d*)=FFFA 
LOW* I*)=FFD7-FFD0 SETPTI I* ) =FFCF-FFC8 
A(R*)=FF16-FEC8 B ( R* ) =FEC6-FE78 
H(R*)=FE52-FE34 IENDT ( I* ) =FE33 

IBITd (=0009-0002 IBIZd )=0011-000A 
K(I )=002F IV(I (=0030 



STATEMENT ALLOCATIONS 
678 =0080 699 =009B 
100 =0156 101 =0165 



679 


= 00A3 


1000 


= 00A9 


99 


= 00C3 


88 


= 00CD 


1 


= O0DA 


111 


= 00E3 


2 


= 0114 


3000 


= 0169 


3 


= 01A5 


20 


= 01AE 


9 


= 01BF 


10 


= 01DA 


11 


= 01E9 


12 


= 01EF 



= 013B 



FEATURES SUPPORTED 
ONE WORD INTEGERS 



CALLED SUBPROGRAMS 
SOUT CSX AIS 
ISTOX SUBSC 



IAND 



TIMER 



INTEX 



FDIVX 



FLD 



FSTO 



IFIX 



FLOAT COMGO 



REAL CONSTANTS 

.200000E 04=0038 



INTEGER CONSTANTS 

64 = 003A 10U = 003B 
127=0044 1001=0045 



0=003C 



1=003D 



8=003E 2001=003F 4096=0040 



2=0041 



126=0042 



15=0043 



CORE REQUIREMENTS FOR LEV10 
COMMON INSKEL COMMON 



464 VARIABLES 



56 PROGRAM 



END OF COMPILATION 



LEV10 

DUP FUNCTION COMPLETED 

// DUP 

*DELET LEV10 

LEV10 

D25 NAME NOT IN L/F 

#STORE 1 LEV10 

LEV10 

DUP FUNCTION COMPLETED 
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// JOB 

// * INSKEL 
// FOR 
*LIST ALL 



CALL TIMER SUBROUTINE 



C 

c 
c 
c 
c 



TIMER B SUBROUTINE TO SETUP RE-ENTRY INTO LEVEL 10 PROGRAM 
SUBROUTINE SOUT 

THIS SUBROUTINE SERVICES TIMER B AND IS USED FOR INITIATING 
ENTRIES INTO THE LEVEL 10 SUBROUTINE FOR THE OUTPUTING OF PULSES 
TO THE SET POINT STATIONS. 

SW0,SW1,SW2,SW3,SW4,SW5,DAY 

VALUE(15),SETPT(8),C0UMT(8) ,0FFLN(8) 
ON RANGE (8) , AHL I 40 ) , ALL I 40 > , A < 40 ) , B (40 ) , LOW I 8 ) , G I 16 ) , H < 16 ) 
INSKEL/SW0,SW1,SW2,SW3,SW4,SW5,DAY,J0BN,VALUE,RANGE,L0W,SET 
T,OFFLN,AHL,ALLtA,B,IBASE,IBASZ,IBAZZ,G,H,IENDT,IPERD,ITCNT 

3,2>,SW0 
2,1) ,SW4 
VEL( 10) 



INTEGER 

INTEGER 

DIMENSI 

COMMON/ 

1PT,C0UM 

2,IP0NT 

GO TO ( 

3 GO TO ( 

1 CALL LE 

2 RETURN 
END 

VARIABLE ALLO 

CSWO(I*)=FF 

DAYf I*)=FF 

COUMT( I*)=FF 

IBASE(I*)=FE 

IPERDd*)=FE 



CATIONS 

FF 

F9 



CSWKI*)=FFFE 
JOBNI I*)=FFF8 



C7-FFC0 0FFLN(I*)=FFBF-FFB8 



IBASZ(I*)=FE76 
ITCNT(I*)=FE31 



CSW2I I*)=FFFD CSW3( I*)=FFFC 
VALUE) I*)=FFF7-FFE9 RANGE ( R* ) = FFE6-FFD8 
AHL(R*)=FFB6-FF6 8 ALL ( R* ) =FF66-FF1 8 
IBAZZ{ I#)=FE75 G ( R* ) =FE72-FE54 

IPONTI I*)=FE30 



CSW4(I*)=FFFB CSW5d*)=FFFA 
LOW! I*)=FFD7-FFD0 SETPTI I* ) =FFCF-FFC8 
A(R*)=FF16-FEC8 B ( R* ) =FEC6-FE78 
H(R*) = FE52-FE34 I ENDT d* ) =FE33 



STATEMENT ALLOCATIONS 
3 =0008 1 =000E 2 



FEATURES SUPPORTED 
ONE WORD INTEGERS 



CALLED SUBPROGRAMS 
LEVEL COMGO 
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INTEGER CONSTANTS 
10=0000 



CORE REQUIREMENTS FOR SOUT 
COMMON INSKEL COMMON 464 VARIABLES PROGRAM 20 

END OF COMPILATION 



SOUT 

DUP FUNCTION COMPLETED 

*ST0RE 1 SOUT 

SOUT 

DUP FUNCTION COMPLETED 
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/ JOB A 

INSKEL INTERRUPT SUBROUTINE 
// FOR 
*LIST ALL 
** QUEUE 15 MINUTE LOG ON DEMAND 

SUBROUTINE QUE15 
C 

C THIS SUBROUTINE QUEUES THE FIFTEEN MINUTE LOG ROUTINE ON DEMAND. 
C 

EXTERNAL L0G15 

CALL ENDTS 

CALL QUEUEUOG15,7,0) 

CALL INTEX 

END 

FEATURES SUPPORTED 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
L0G15 ENDTS QUEUE INTEX 

INTEGER CONSTANTS 

7=0000 0=0001 

CORE REQUIREMENTS FOR QUE15 
COMMON INSKEL COMMON VARIABLES PROGRAM 14 

END OF COMPILATION 



QUE 15 

DUP FUNCTION COMPLETED 

*STORE 1 QUE15 

QUE 15 

DUP FUNCTION COMPLETED 



®'/, 



// JOB A 

INSKEL CALL COUNT SUBROUTINE 
// FOR 
*LIST ALL 
** PERIODIC QUEUE OF TREND LOG SUBROUTINE 

SUBROUTINE TCONT 
C 

C THIS SUBROUTINE PERIODICALLY QUEUES THE TREND LOG PROGRAM THE 
C NUMBER OF TIMES SPECIFIED. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),C0UMT(8),0FFLN(8I 

EXTERNAL TREND 

DIMENSION RANGE (8) , AHL ( 40 ) , ALL ( 40 ) , A( 40) ,B ( 40 ) ,LOW ( 8 ) ,G ( 16 ) , HI 16 ) 

COMMON/ I NSKEL/ SWO, SW 1 , SW2 , SW3 , SW4, SW5 , DA Y,J0BN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ , IBAZZ ,G ,H , I ENDT , IPERD , I TCNT 
2,IP0NT 

CALL ENDTS 

CALL QUEUE(TREND,2,0) 

ITCNT=ITCNT-1 

IF( ITCNT)2,2,1 



228 



® 



Continued 



1 CALL C0UNT(2,3,IPERD) 

2 RETURN 
END 

VARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSWK I*) = FFFE CSW2 ( I* ) =FFFD CSW3 ( I* ) =FFFC CSW4 { I* ) = FFFB CSW5 ( I * ) = FFF A 

DAY(I'X)=FFF9 JOBN ( I* ) =FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 LOW ( I* ) =FFD7-FFD0 SETPT ( I* > =FFCF-FFC8 

COUMT( I*)=FFC7-FFCO OFFLN( I* ) =FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL (R* >=FF66-FF18 A ( R* )=FF16-FEC8 B ( R*) =FEC6-FE78 

IBASE(I*)=FE77 I BASZ < I *) =FE76 IBAZZ <I* ) =FE75 G( R* ) =FE72-FE54 H ( R* ) =FE52-FE34 IENDT ( I* ) =FE33 

IPERD(I*)=FE32 I TCNT( I * ) = FE31 IPONT ( I* ) =FE30 

STATEMENT ALLOCATIONS 
1 =0017 2 =001C 

FEATURES SUPPORTED 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
TREND ENDTS QUEUE COUNT 

INTEGER CONSTANTS 

2=0000 0=0001 1=0002 3=0003 

CORE REQUIREMENTS FOR TCONT 
COMMON INSKEL COMMON 464 VARIABLES PROGRAM 30 

END OF COMPILATION 

TCONT 

DUP FUNCTION COMPLETED 

*DELET TCONT 

TCONT 

D25 NAME NOT IN L/F 

*STORE 1 TCONT 

TCONT 

DUP FUNCTION COMPLETED 
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// JOB A 

// * INSKEL INTERRUPT SUBROUTINE 

// FOR 

*LIST ALL 

** ABORT TREND LOG SUBROUTINE 

SUBROUTINE TABRT 
C 

C THIS SUBROUTINE ABORTS THE TREND LOG ON DEMAND. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 
INTEGER VALUE(15),SETPT(8),C0UMT(8) ,0FFLN(8) 

DIMENSION RANGE (8), AHL ( 40 > , ALLf 40 ) ,A(40),B(40),L0W(8),G(16) f H(16) 
COMMON/ I NSKEL/SW0,SW1,SW2,SW3,SW4,SW5, DAY, JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ , IBAZZ ,G ,H , IENDT , IPERD, ITCNT 
2, IPONT 
ITCNT=0 
CALL INTEX 
END 
VARIABLE ALLOCATIONS 

CSW0(I*)=FFFF CSW1(I*)=FFFE CSW2 ( I* ) = FFFD CSW3 ( I* ) =FFFC CSW4 ( I* ) =FFFB CSW5 ( I* ) =FFFA 
DAY(I*) = FFF9 JOBN ( I* ) = FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8' LOW ( I* ) = FFD7-FFD0 SETPT ( I * ) =FFCF-FFC8 
C0UMT(I*)=FFC7-FFC0 OFFLN ( I* ) =FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL t R* ) =FF66-FF1 8 A ( R* ) =FF 16-FEC8 B ( R* ) =FEC6-FE78 
IBASE(I*)=FE77 I BASZ ( I * ) = FE76 IBAZZ ( I* ) =FE75 G <R* ) =FE72-FE54 H ( R* ) = FE52-FE34 I ENDT ( I* ) =FE33 

IPERD(I*)=FE32 ITCNT { I*) =FE31 IPONT ( I* ) =FE30 

FEATURE? SUPPORTED 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
INTEX 

INTEGER CONSTANTS 
0=0000 

CORE REQUIREMENTS FOR TABRT 
COMMON INSKEL COMMON 464 VARIABLES PROGRAM 8 



END OF COMPILATION 
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Continued 



TABRT 

DUP FUNCTION COMPLETED 

*STORE 1 TABRT 

TABRT 

DUP FUNCTION COMPLETED 
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// JOB A 

// * USER SUBROUTINE 

// FOR 

*LIST ALL 

** SUBROUTINE FOR READING DATA ENTRY DIALS 

SUBROUTINE GETVL(INVAL) 
C 

C THIS SUBROUTINE READS THE ANALOG INPUT VALUE FOR EACH OF THE 
C SIXTEEN DATA ENTRY DIALS. 
C 

DIMENSION INS112) ,INR(12) ,INVAL(16) 

CALL AIS(02011,INR(1) ,INR<10),0) 

CALL AIS(02001,INS(1),INS(12),4098) 

1 CALL AIS(OOOIO.IV) 
GO TO (1,2) t IV 

2 CALL AIS(O.IV) 
GO TO (2, 3), IV 

3 DO 4 J=l,8 
K = 9-J 

4 INVAL( J+8)=INR(K) 
DO 5 J=l,4 
K=ll-J 

INVAL( J)=INS(K) 

5 INVALI J+4)=INS(K-6) 
RETURN 

END 
VARIABLE ALLOCATIONS 

INSd )=OOOB-0000 INR(I )=0017-000C IV(I )«0018 J(I )=0019 K(I )=001A 

STATEMENT ALLOCATIONS 
1 =0059 2 =0063 3 =006D 4 =0077 5 = OOAA 

FEATURES SUPPORTED 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
AIS COMGO ISTOX SUBSC SUBIN 

INTEGER CONSTANTS 

2011=0020 0=0021 2001=0022 4098=0023 10=0024 1=0025 8=0026 9=0027 4=0028 11=0029 

CORE REQUIREMENTS FOR GETVL 
COMMON INSKEL COMMON VARIABLES 32 PROGRAM 166 

END OF COMPILATION 

GETVL 

DUP FUNCTION COMPLETED 

*STORE 1 GETVL 

GETVL 

DUP FUNCTION COMPLETED 
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// JOB A 

// * USER SUBROUTINE 

// FOR 

*LIST ALL 

** SUBROUTINE FOR READING AND CONVERTING DATA ENTRY DIALS 

SUBROUTINE CONVR(INVAL) 
C 

C THIS SUBROUTINE SCANS THE 16 DATA ENTRY DIALS AT THE PROCESS 
C OPERATORS CONSOLE AND CONVERTS THEM TO AN INTEGER VALUE WITH 
C RANGE TO 9. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE (15) ,SETPT(8) , COUMT ( 8 ) , OFFLN ( 8 ) 

DIMENSION INVALI16) 

DIMENSION RANGE(8),AHL(40) , ALL ( 40 > , A ( 40 ) , B ( 40 ) , LOW ( 8 ) ,G ( 16 ) ,H(16) 
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COMMON/ I NSKE L / SWO, SW 1, S W2, S W3,SW4,SW5, DAY, J OBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, I BASZ , I BAZZ ,G , H 
CALL GETVL (INVAL) 
DO 10 J=l,16 
10 INVALf J)=INVAL< J)*G< J)+H( J) 
RETUKN 
END 
VARIABLE ALLOCATIONS 

CSWOI I*)=FFFF CSWK I*) = FFFE CSW2 ( I* ) =FFFD CSW3 ( I * ) =FFFC CSW4 ( I* ) = FFFB CSW5 < I * ) =FFF A 
DAY(I*)=FFF9 JOBN ( I * ) =FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R# ) =FFE6-FFD8 LOW ( I* > = FFD7-FFD0 SETPT < I* ) =FFCF-FFCf 
C0UMT(I*) = FFC7-FFC0 OFFLN( I * ) = FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL ( R* ) =FF66-FF 18 A ( R* ) = FF1 6-FEC8 B ( R* ) =FEC6-FE 11 
IBASEf I*)=FE77 I BASZ ( I *> =FE76 I BAZZ ( I* ) =FE 75 G ( R* ) =FE72-FE54 H ( R* ) =FE52-FE34 J(I )=0000 

STATEMENT ALLOCATIONS 
10 =0014 

FEATURES SUPPORTED 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
GETVL FADDX FMPYX IFIX FLOAT ISTOX SUBSC SUBIN 

INTEGER CONSTANTS 

1=0004 16=0005 

CORE REQUIREMENTS FOR CONVR 
COMMON INSKEL COMMON 460 VARIABLES 4 PROGRAM 54 



END OF COMPILATION 



CONVR 

DUP FUNCTION COMPLETED 

*STORE 1 CONVR 

CONVR 

DUP FUNCTION COMPLETED 
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// JOB A 

// * USER SUBROUTINE 

// FOR 

*LIST ALL 

** TIME CONVERSION SUBROUTINE 

SUBROUTINE PTIME(X) 
C 

C THIS SUBROUTINE READS THE CLOCK AND CONVERTS THE TIME TO A 
C FLOATING POINT NUMBER WITH THE DECIMAL POINT SEPERATING HOURS 
C AND MINUTES. 
C 

CALL CLOCK! I ) 

J=I/1000*1000 

I = I -J 

X=( ( 1*60./ 1000.)+ J/ 10)/ 100. 

RETURN 

END 
VARIABLE ALLOCATIONS 

Id )=0002 J(I )=0003 

FEATURES SUPPORTED 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
CLOCK FADD FMPY FDIV FSTO FLOAT SUBIN 

REAL CONSTANTS 

.600000E 02=0004 .100000E 04=0006 .100000E 03=0008 

INTEGER CONSTANTS 

1000=000A 10=000B 

CORE REQUIREMENTS FOR PTIME 
COMMON INSKEL COMMON VARIABLES 4 PROGRAM 56 

END OF COMPILATION 



PTIME 

DUP FUNCTION COMPLETED 
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// DUP 

*STORE 1 PTIME 

PTIME 

DUP FUNCTION COMPLETED 



>w ' II 



II JOB A 

USER SUBROUTINE 

THE FOLLOWING TWO SUBROUTINES ARE USED IN FORTRAN TO OBTAIN THE 
ADDRESS OF EITHER A VARIABLE OR A SUBROUTINE 
// ASM 
*LIST 
*PRINT SYMBOL TABLE 



// 



* IADDR SUBROUTINE * 



OOOO 09044119 

0000 0000 

0001 01 66800000 

0003 C200 

0004 00 4E000001 
0006 



* THIS SUBROUTINE GETS THE ADDRESS OF A * 

* FORTRAN VARIABLE. * 

* * 

* FORTRAN CALL * 

* I=IADDR(ABC) * 

* * 

* AFTER EXECUTION OF THE ABOVE STATEMENT * 

* I EQUALS THE ADDRESS OF THE VARIABLE ABC. * 

* * 

* ASM GENERATED CODE * 

* CALL IADDR * 

* DC ADDFUABC) * 

* * 

* RESULT IS IN THE ACCUM UPON RETURN * 

* * 

* THE SUBROUTINE IS RE-ENTRANT * 

* * 
##***# *#**********#******#**£***##**####******##*#* 

ENT IADDR DEFINE ENTRY POINT 
IADDR DC CALL ENTRY 

LDX 12 IADDR SAVE RET ADDR AND SET XR2 
LD 2 TO PARAMETER— GET PARAMETR 

BSC L2 1 RETURN 

END 



SYMBOL TABLE 



IADDR 0000 

NO ERRORS IN ABOVE ASSEMBLY. 
IADDR 

DUP FUNCTION COMPLETED 
// DUP 

*STORE 1 IADDR 

IADDR 

DUP FUNCTION COMPLETED 
// ASM 

*LIST 

*PRINT SYMBOL TABLE 
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* ISBAD SUBROUTINE 



* 



THIS SUBROUTINE GETS THE ADDRESS OF THE 
ENTRY POINT TO A- SUBROUTINE. 



FORTRAN CALL 

EXTERNAL SUBR 



I=ISBAD(SUBR) 

AFTER EXECUTION OF THE ABOVE STATEMENT 
I EQUALS THE ADDRESS OF THE ENTRY POINT 
OF THE SUBROUTINE SUBR. 

ASM GENERATED CODE 

CALL ISBAD 
CALL SUBR 

ENTRY ADDR TO SUB IS IN ACCUM UPON RETURN 

THE SUBROUTINE IS RE-ENTRANT 



*###*** ## #*#*>>: #*#*# jft* *#*##*$ Jjc******* J*****:******)!!*** 



0000 




09882044 


ENT 




ISBAD 


0000 





0000 


ISBAD DC 







0001 


01 


66800000 


LDX 


12 


ISBAD 


0003 





C200 


LD 


2 





0004 





1008 


SLA 




8 


0005 


01 


4C10000A 


BSC 


L 


* + 3 T - 


0007 


00 


C6800001 


LD 


12 


1 


0009 





7001 


MDX 




*+l 


OOOA 





C201 


LD 


2 


1 


OOOB 


00 


4E000002 


BSC 


L2 


2 


OOOE 






END 







DEFINE ENTRY POINT 
CALL ENTRY POINT 
XR2#RET ADDR AND CAL 
IS IT BSI L OR BSI 
PUT INDIRECT BIT IN 
BRANCH FOR DIRECT BS 
GET SUB ENTRY POINT 

GET SUB ENTRY POINT 
EXIT 



L PARA 

I 

POS 

I 



SYMBOL TABLE 



ISBAD 0000 

NO ERRORS IN ABOVE ASSEMBLY. 
ISBAD 

DUP FUNCTION COMPLETED 
// DUP 

*ST0RE 1 ISBAD 

ISBAD 
OUP FUNCTION COMPLETED 



®'A 



// JOB A 

INSKEL INTERRUPT SUBROUTINE 
// FOR 
*LIST ALL 
** QUEUE OF CE UNMASK ROUTINE 

SUBROUTINE CESET 
C 

C THIS SUBROUTINE QUEUES THE CE UMASK PROGRAM SO THAT DEVICES MAY 
C BE TAKEN OFF-LINE OR PUT ON-LINE. 
C 

EXTERNAL CEINT 

CALL ENDTS 

CALL QUEUE(CEINT,20,0) 

CALL INTEX 

END 

FEATURES SUPPORTED 
ONE WORD INTEGERS 



CALLED SUBPROGRAMS 
CEINT ENDTS QUEUE 



INTEGER CONSTANTS 

20=0000 0=0001 



INTEX 
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Continued 

CORE REQUIREMENTS FOR CESET 
COMMON INSKEL COMMON VARIABLES PROGRAM 14 

END OF COMPILATION 



CESET 

DUP FUNCTION COMPLETED 

// DUP 

*STORE 1 CESET 

CESET 

DUP FUNCTION COMPLETED 



// JOB A 

// * INSKEL INTERRUPT SUBROUTINE 

// FOR 

*LIST ALL 

** ABORT GRADE PROCESS INTERRUPT SUBROUTINE 

SUBROUTINE ABORT 
C 

C THIS SUBROUTINE QUEUES THE GRADE CHANGE PROGRAM CAUSING THE 
C PRESENT GRADE TO BE ABORTED. 
C 

EXTERNAL GRADE 

CALL ENDTS 

CALL QUEUE(GRADE,5,0) 

CALL INTEX 

END 

FEATURES SUPPORTED 
ONE WORD INTEGERS 

CALLED SUBPROGRAMS 
GRADE ENDTS QUEUE INTEX 

INTEGER CONSTANTS 

5=0000 0=0001 

CORE REQUIREMENTS FOR ABORT 
COMMON INSKEL COMMON VARIABLES PROGRAM 14 

END OF COMPILATION 



ABORT 

DUP FUNCTION COMPLETED 

// DUP 

*STORE 1 ABORT 

ABORT 

DUP FUNCTION COMPLETED 
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// JOB A 

// * INSKEL CALL COUNT SUBROUTINE 

// FOR 

*LIST ALL 

#* END OF GRADE COUNT SUBROUTINE 

SUBROUTINE ENDGD 
C 

C THIS SUBROUTINE ABORTS THE GRADE IN PROGRESS WHEN THE RUN TIME FOR 
C THAT GRADE HAS ELAPSED. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE! 15) ,SETPT(8) ,C0UMT(8> ,0FFLN<8! 

EXTERNAL GRADE 

DIMENSION RANGE ( 8 ), AH L( 40), ALL (40), A (40) , B ( 40 ) , LOW ( 8 ) ,G ( 16 ) , H ( 16 ) 

COMMON/ I NSKEL/ SWO, SW1,SW 2, SW3,SW4,SW5, DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ , IBAZZ ,G ,H, IENDT, IPERD.ITCNT 
2.IP0NT 

GO TO (1,2) ,SW3 

1 CONTINUE 
CALL ENDTS 

CALL QUEUE(GRADE,5,0) 

2 RETURN 
END 
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VARIABLE ALLOCATIONS 

CSWO( I*)=FFFF CSW1(I*)=FFFE 

DAY(I*)=FFF9 JOBN( I * ) = FFF8 

COUMT( I*)=FFC7-FFC0 OFFLN( I * ) =FFBF-FFB8 

IBASE(I*)=FE77 I BASZ ( I * ) = FE76 

IPERD(I*)=FE32 ITCNT ( I * ) =FE31 



CSW2< I*)=FFFD CSW3( I*)=FFFC 
VALUE ( I*)=FFF7-FFE9 RANGE ( R* ) =FFE6-F FD8 
AHL(R*)=FFB6-FF6 8 ALL ( R* ) =FF66-FF1 8 
IBAZZf I*)=FE75 G ( R* ) = FE72-FE54 

IPONT( I*)=FE30 



CSW4( I*)=FFFB CSW5( I*)=FFFA 
LOW! I*)=FFD7-FFDO SETPT ( I * ) =FFCF-FFC8 
A(R*)=FF16-FEC8 B ( R* ) =FEC6-FE78 
H(R*)=FE52-FE34 IENDT ( I * ) =FE33 



STATEMENT ALLOCATIONS 
1 =0009 2 =0011 



FEATURES SUPPORTED 
ONE WORD INTEGERS 



CALLED SUBPROGRAMS 
GRADE ENDTS QUEUE COMGO 



INTEGER CONSTANTS 

5=0000 0=0001 



CORE REQUIREMENTS FOR ENDGD 
COMMON INSKEL COMMON 



464 VARIABLES 



PROGRAM 



END OF COMPILATION 



ENDGD 

DUP FUNCTION COMPLETED 

// DUP 

*STORE 1 ENDGD 

ENDGD 

DUP FUNCTION COMPLETED 



<§> 



// JOB 
// DUP 
*DUMPLET 



LET 



PACK LABEL 


































00000 


































• DCOM 


0010 


0000 


.MBT 


0020 


0010 


• SKSB 


0020 


0030 


• SUP 


OOBO 


0050 


.CLB 


OOAO 


0100 


• DUP 


0440 


01A0 


.ASM 


0300 


05E0 


.FOR 


0680 


08E0 


.SIM 


05F0 


0F60 


.LET 


0080 


1550 


IAND 


0002 


15D0 


CLEAR 


0009 


15D2 


CLOCK 


0002 


15DB 


COUNT 


0004 


15DD 


DMP 


0017 


15E1 


DMPHX 






DMPDC 






DMPS 


0010 


15F8 


DMPST 






DPART 


0002 


1608 


ENDTS 


0002 


160A 


IEOR 


0002 


160C 


LD 


0002 


160E 


LEVEL 


0004 


1610 


MASK 


0003 


1614 


OPMON 


0002 


1617 


IOR 


0002 


1619 


QIFON 


OOOA 


161B 


QUEUE 


OOOC 


1625 


RESMK 


0004 


1631 


SAVMK 


0003 


1635 


SETCL 


0003 


1638 


TIMER 


0006 


163B 


UNMK 


0005 


1641 


UNQ 


0005 


1646 


VIAQ 


0007 


1646 


CONHX 


0006 


1652 


TRPRT 


0007 


1658 


FLIP 


0007 


165F 


EADD 


OOOB 


1666 


ESUB 






EADDX 






ESUBX 






ESBR 






ESBRX 






EATN 


OOOD 


1671 


EATAN 






EAVL 


0003 


167E 


EABS 






EAXB 


0006 


1681 


EAXBX 






EAXI 


0006 


1687 


EAXIX 






EDVR 


0007 


168D 


EDVRX 






EDIV 






EDIVX 






ELD 


0009 


1694 


ELDX 






ESTO 






ESTOX 






ELN 


OOOB 


169D 


EALOG 






EMPY 


0004 


16A8 


EMPYX 






ESINE 


OOOD 


16AC 


ESIN 






ECOSN 






ECOS 






ESQR 


0007 


16B9 


ESQRT 






ETNH 


0006 


16C0 


ETANH 






ETRTN 


0004 


16C6 


ETNTR 






EXPN 


OOOB 


16CA 


EEXP 






FSBR 


OOOB 


16D5 


FSBRX 






FADD 






FSUB 






FADDX 






FSUBX 






FARC 


0004 


16E0 


FATN 


OOOC 


16E4 


FATAN 






FAVL 


0003 


16F0 


FABS 






FAXB 


0006 


16F3 


FAXBX 






FAXI 


0006 


16F9 


FAXIX 






FBTD 


001A 


16FF 


FDTB 






FDIV 


0008 


1719 


FDIVX 






FDVR 






FDVRX 






FIXIX 


0005 


1721 


FIXI 






FLD 


0009 


1726 


FLDX 






FSTO 






FSTOX 






FLN 


OOOB 


172F 


FALOG 






FLOAT 


0003 


173A 


FMPY 


0005 


173D 


FMPYX 






FSINE 


OOOB 


1742 


FSIN 






FCOSN 






FCOS 






FSQR 


0007 


174D 


FSQRT 






FTNH 


0006 


1754 


FTANH 






FTRTN 


0004 


175A 


FTNTR 






FXPN 


0009 


175E 


FEXP 






IABS 


0003 


1767 


IF IX 


0004 


176A 


NORM 


0004 


176E 


SNR 


0003 


1772 


XDD 


0006 


1775 


XMD 


0005 


177B 


XMDS 


0004 


1780 


XSQR 


0004 


1784 


BINDC 


0006 


1788 


BINHX 


0004 


178E 


DCBIN 


0006 


1792 


EBPA 


0006 


1798 


EBPRT 


OOOA 


179E 


HOLEB 


0012 


17A8 


HOLPR 


OOOD 


17BA 


HXBIN 


0005 


17C7 


PAPEB 


0010 


17CC 


PAPHL 


0014 


17DC 


PAPPR 


0011 


17F0 


PRT 


0005 


1801 


ADRCK 


0007 


1806 


COMGO 


0006 


180D 


C0MG1 






DATSW 


0004 


1813 


DVCHK 


0002 


1817 


ESIGN 


0005 


1819 


FCTST 


0003 


181E 


FSIGN 


0005 


1821 


IOU 


0007 


1826 


ISIGN 


0003 


182D 


ISTOX 


0003 


1830 


LDFAC 


0004 


1833 


STFAC 






SBFAC 






DVFAC 






MDFIO 


0023 


1837 


MDAF 






MDAI 






MDCOM 






MDF 






MDFX 






MDI 






MDIX 






MDRED 






MDWRT 






MDFND 


0008 


185A 


MFIO 


0059 


1862 


MRED 






MWRT 






MCOMP 






MIOAF 






MIOAI 






MIOFX 






MIOIX 






MIOF 






MIOI 






MGOTO 


OOOE 


18BB 


MFIF 






MI IF 






MEIF 






MIAR 


OOOE 


18C9 


MIARX 






MFAR 






MFARX 






MEAR 






MEARX 






OVERF 


0002 


18D7 


PAUSE 


0002 


18D9 


REWND 


0009 


18DB 


BCKSP 






EOF 






SAVE 


OOOA 


18E4 


IOFIX 






SLITE 


0006 


18EE 


SLITT 






SSWTC 


0004 


18F4 


STOP 


0003 


18F8 


SUBIN 


0005 


18FB 


SUBSC 


0004 


1900 


TSTOP 


0002 


1904 


TSTRT 


0002 


1906 


TTEST 


0003 


1908 


TSET 
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UFIO 


OOIC 


1906 


URED 






UWRT 






UIO'I 






UIOF 






UIOAI 






UIOAF 






UIOFX 






UIOIX 






UCOMP 






PLOTX 


OOOD 


1927 


CARDN 


0016 


1934 


PAPTN 


OOIO 


194A 


MAGT 


0020 


195A 


AIPTN 


0009 


197A 


AIPN 






AISQN 


OOOF 


1983 


AISN 






AIRN 


OOOD 


1992 


ANINT 


0014 


199F 


DINP 


0013 


19B3 


DIEXP 


0006 


19C6 


DICMP 


0007 


19CC 


DAOP 


0013 


19D3 


IOPE 


0009 


19E6 


OUSLY 






ETS 






XSAVE 


0009 


19EF 


XEXIT 






XLOAD 






GAGED 


0003 


19F8 


UNGAG 






AIP 


0004 


19FB 


AIS 


OOOD 


19FF 


AIR 


0011 


1A0C 


CS 


0008 


1A1D 


VS 






DI 






PI 






CSC 


OOOA 


1A25 


VSC 






DIC 






PIC 






CSX 


0004 


1A2F 


VSX 






DIX 






PIX 






DAC 


0007 


1A33 


CO 






DO 






PO 






QZERQ 


0002 


1A3A 


QZ010 


0006 


1A3C 


BT1B.T 


0007 


1A42 


BT2BT 


0003 


1A49 


FCHAR 


0005 


LA4C 


SCALF 


0002 


1A51 


FGRID 


0007 


1A53 


FPLOT 


0004 


1A5A 


ECHAR 


0005 


1A5E 


SCALE 


0002 


1A63 


EGRID 


0008 


1A65 


EPLOT 


0005 


I.A6D 


POINT 


0007 


1A72 


FCHRX 


0024 


1A79 


FCHRI 






WCHRI 






FRULE 


0009 


1A9D 


FMOVE 






FINC 






ECHRX 


0025 


1AA6 


ECHRI 






VCHRI 






ERULE 


OOOB 


1ACB 


EMOVE 






EINC 






XYPLT 


0007 


1AD6 


PLOTI 


0003 


1ADD 


PLOTS 






.TEMP 


1AE0 


1B00 


.E 


5A00 


LBOO 





















FLET 



PACK LABEL 
00000 



9DUMY OOAO 05A0 



.E 



OOAO 05A0 



PACK LABEL 






















11111 






















.LET 0080 


0000 


SYDIR 


009E 


0080 


OUTTR 






CHAIN 






SPECL 




BACK 






EACLK 






SCHED 


0014 


011E 


QUE15 0002 


0159 


TCONT 


0003 


015B 


TABRT 


0002 


015E 


GETVL 


OOOB 


0160 


IADDR 0002 


0175 


ISBAD 


0002 


0177 


CESET 


0002 


0179 


ABORT 


0002 


017B 


.E 1180 


0180 





















INTEX 

LEV10 0024 0132 

CONVR 0005 016B 

ENDGD 0002 017D 



SHARE 

SOUT 0003 0156 

PTIME 0005 0170 

.TEMP 017F 0180 



PACK LABEL 
11111 

•PRWS 0051 1118 
/NPSV 4180 12C3 
/PRSV 4180 15AD 



.FIOS OOOF 1169 
FILE1 0002 12F8 
.SKEL 0036 15E2 



DUP FUNCTION COMPLETED 



// JOB A 
// END OF ALL JOBS 



.MESS 00A3 1178 
FILE2 0064 12FA 
.EPRG 0022 1618 



/EPDM 7FFF 121B 
FILE3 0003 135E 
/CLST 0780 163A 



/EPSV 


0780 


1282 


/INSV 48FF 


1288 


9DUMY 


0217 


1361 


/SPSV 4180 


1578 


,E 


0280 


12F8 
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TASK 1800 TSX-II-1 SAMPLE SYSTEM 
SEN SW ON FOR ABSOLUTE LOADER 
SEN SW 1 ON FOR NONPROCESS MONITOR 
SEN SW 2 ON FOR SKELETON BUILDER 
PLACE TASK DECK IN CARD HOPPER 
PUT SKL BUILD PROG IN CARD HOPPER 
// JOB A 
// XEO SKBLD 



* I NCLDSCHED/2600, ENDGD/ 260 1,QUE 15/0001, CESET/ 2500, ABORT /OO 00, LEV 10/2410 
*INCLDTC0NT/260 2,TABRT/000 2 



*CCEND 



KOC ANINT 


0023 


SKEL CORE 


MAP 


TYPE NAME 


ARG1 



LEV.l 



ARG2 



LIBF DISKN 02A9 3EBB 

LIBF TYPEN 0674 3EBE 

LIBF WRTYN 0674 3EBE 

LIBF PRNTN 0B6F 3EC1 
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Continued 






LIBF 


CARDN 


OEOD 


3EC4 


CALL 


EXIT 


206E 


00B6 


CALL 


LINK 


2070 


008E 


INSK 




0F62 


1349 


PNT 


SYDIR 


134A 


3DB4 


ICI 


SCHED 


2391 


1200 


ICI 


ENDGD 


24A0 


1201 


ICI 


QUE15 


24B4 


0001 


ICI 


CESET 


24C2 


1100 


ICI 


ABORT 


24D0 


0000 


ICI 


LEVIO 


2522 


100A 


ICI 


TCONT 


26EA 


1202 


ICI 


TABRT 


2705 


0002 


CALL 


OUTTR 


1D8C 


3E46 


CALL 


CHAIN 


1F63 


3E45 


CALL 


INTEX 


1E90 


3E44 


CALL 


SHARE 


2009 


3E43 


CALL 


SPECL 


1FA9 


3E42 


CALL 


BACK 


1FF1 


3E41 


CALL 


EACLK 


2305 


3E40 


CALL 


COUNT 


270C 


3E3F 


LIBF 


COMGO 


2740 


3EC7 


CALL 


LEVEL 


2792 


3E3E 


CALL 


QUEUE 


27CA 


3E3D 


PNT 


SCAN2 




3DB8 


CALL 


ENDTS 


288C 


3E3C 


CALL 


CLOCK 


2896 


3E3B 


PNT 


LOG15 




3DBC 


PNT 


L0G60 




3DC0 


PNT 


SHIFT 




3DC4 


PNT 


WEEK 




3DC8 


PNT 


GRADE 




3DCC 


PNT 


CEINT 




3DD0 


LIBF 


ISTOX 


28A8 


3ECA 


CALL 


CSX 


28C8 


3E3A 


LIBF 


SUBSC 


28EE 


3ECD 


CALL 


AIS 


291C 


3E39 


LIBF 


FLOAT 


29E6 


3ED0 


LIBF 


FSTO 


2A4A 


3ED3 


LIBF 


FLD 


2A64 


3ED6 


LIBF 


FMPY 


2A7D 


3ED9 


LIBF 


FDIVX 


2ABA 


3EDC 


LIBF 


IF IX 


2B26 


3EDF 


CALL 


IOR 


2B52 


3E38 


CALL 


PO 


2B60 


3E37 


CALL 


IAND 


2BBC 


3E36 


CALL 


TIMER 


2BCA 


3E35 


CALL 


SOUT 


2C21 


3E34 


PNT 


TREND 




3DD4 


LIBF 


COMG1 


2781 


3EE2 


LIBF 


ADRCK 


2C34 


3EE5 


CALL 


VSX 


28C8 


3E33 


CALL 


DIX 


28C8 


3E32 


CALL 


PIX 


28C8 


3E31 


CALL 


QZOIO 


2C98 


3E30 


CALL 


OZERO 


2CEC 


3E2F 


LIBF 


DIEXP 


2CFA 


3EE8 


LIBF 


AISQN 


2D46 


3EEB 


LIBF 


NORM 


2E3C 


3EEE 


LIBF 


FLDX 


2A5F 


3EF1 


LIBF 


FSTOX 


2A00 


3EF4 


LIBF 


FMPYX 


2A78 


3EF7 


LIBF 


FARC 


2E68 


3EFA 


LIBF 


FDIV 


2ABF 


3EFD 


LIBF 


FDVR 


2B05 


3F00 


LIBF 


FDVRX 


2B00 


3F03 


CALL 


FTNTR 


2E9C 


3E2E 


CALL 


FTRTN 


2EB6 


3E2D 


CALL 


DAC 


2B60 


3E2C 


CALL 


CO 


2B60 


3E2B 


CALL 


DO 


2B60 


3E2A 


LIBF 


DAOP 


2EC4 


3F06 


CALL 


GAGED 


2FF0 


3E29 


CALL 


UNGAG 


3001 


3E28 


LIBF 


AISN 


2D46 


3F09 


CALL 


ANINT 


3010 


3E27 


PTCH 




314C 


3DB1 
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ICL 


TABLE 


MAP 




LLBB 


WC/EP 


SA 


ICLT 


0000 


24D0 




1454 


0001 


24B4 




1456 


0002 


2705 




1458 


100A 


2522 




15B8 


1100 


24C2 




15C4 


1200 


2391 




15CC 


1201 


24A0 




15CE 


1202 


26EA 




15D0 



K13 SCAN2 LEV.l 

K13 L0G15 LEV.l 

K13 L0G60 LEV.l 

K13 SHIFT LEV.l 

K13 WEEK LEV.l 

K13 GRADE LEV.l 

K13 CEINT LEV.l 

K13 TREND LEV.l 

DATA SW ON TO ABORT SKEL 

SKB, SYDIR LD NX 

TASK 1800 TSX-II-1 SAMPLE SYSTEM 
SEN SW ON FOR ABSOLUTE LOADER 
SEN SW 1 ON FOR NONPROCESS MONITOR 



® 



JOB A 

* MAINLINE CORE LOAD 

FOR COLON 
1ST ALL 

OFF-LINE COLD START FOR PERPETUAL TIME SHARING 
OCS(DISK) 

THIS COLD START CORE LOAD IS USED TO GIVE PERPETUAL TIME SHARING. 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUEf 15) , SETPTI8) ,C0UMT(8> ,0FFLN(8) 

DIMENSION RANGE(8) ,AHL(40) , ALL ( 40 ) , A ( 40 ) , B ( 40 ) , LOW ( 8 ) ,G ( 16 ) ,H ( 16 ) 

COMMON/ I NSKE L / SWO, SW 1, SW2,SW3,SW4,SW5, DAY, J OBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B, I BASE, I BASZ, IBAZZ ,G ,H , IENDT, IPERD, ITCNT 
2, IPONT 

DEFINE FILE 1(2, 320, U, II ) 



C 

C UNMASK ALL 


LEVELS AND CALL VI 


C 

CALL 


UNMK(- 


-1,- 


1) 




READ! 1' DRANGE 


,LOW,A,B 




READ! 1'2)G 


,H 






CALL 


VIAO 








END 










VARIABLE ALLOCATIONS 






CSWO( I*) 


= FFFF 




CSWK I*] 


1 =FFFE 


DAY ( I * ) 


= FFF9 




JOBNI i*: 


1 = F F F 8 


COUMT( I*) 


=FFC7-I 


= FCO 


OFFLNII*] 


i=FFBF 


IBASEd*) 


= FE77 




I BASZ ( I*] 


l=FE76 


IPERD( I*) 


= FE32 




ITCNTI I*] 


l=FE31 



CSW2I I*)=FFFD CSW3I I*)=FFFC 

VALUE! I*)=FFF7-FFE9 RANGE ( R* ) =FF E6-F FD8 

AHL( R»!<)=FFB6-FF6 8 ALL ( R* ) =FF66-FF1 8 

IBAZZt I*)=FE75 G ( R* ) =FE72-F E54 

IPONTt I*)=FE30 IIII )=000A 



CSW4(I*)=FFFB CSW5( 

LOW( I*)=FFD7-FFD0 SETPT( 

A(R*)=FF16-FEC8 B( 

H(R=«) = FE52-FE34 IENDTI 



I*)=FFFA 
I*)=FFCF-FFC8 
RC)=FEC6-FE78 
I* )=FE33 



FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
UNMK VIAO MDRED 



MDAI 
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INTEGER CONSTANTS 

1=000C 2=000D 



CORE REQUIREMENTS FOR COLDN 
COMMON INSKEL COMMON 



464 VARIABLES 



12 PROGRAM 



END OF COMPILATION 



COLDN 

DUP FUNCTION COMPLETED 

// DUP 

*DELET M 

DUM 

D25 NAME NOT IN L/F 

*STORECIL M 

*FILES(1,FILE1,1) 

*CCEND 



COLDN DUM 



1 COLDN COLDN COLDN 



CLB, BUILD COLDN 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


OOOC 


*IST 


TABLE 


3F18 


0036 


#PNT 


TABLE 


3F4E 


0008 


*DFT 


TABLE 


3F56 


0006 


MAIN 


COLDN 


3F64 




PNT 


COLDN 


3F50 




PNT 


COLDN 


3F54 




CALL 


UNMK 


3F8E 




LIBF 


MDRED 


4040 


3F0C 


LIBF 


MDAF 


3FDF 


3F0F 


LIBF 


MDAI 


3FEC 


3F12 


LIBF 


MDCOM 


40A2 


3F15 


CALL 


VIAQ 


434C 




CALL 


BT2BT 


43AC 




CALL 


SAVE 


43C8 




CALL 


IOFIX 


442C 




CORE 




445E 


3BA2 



CLB, COLDN LD XO 
DUP FUNCTION COMPLETED 



® 



// JOB A 

// * MAINLINE CORE LOAD 

// ASM COLDS 

*LIST 

*PRINT SYMBOL TABLE 



* . * 

* THIS IS THE NORMAL COLD * 

* START CORE LOAD. * 

* * 

* IT SETS TIME SHARING TIME TO ZERO * 

* SO THAT CONSOLE INTERRUPT * 

* MUST HAVE BEEN PUSHED BEFORE * 

* LOGICAL DRIVE ZERO IS EVER * 

* REFERENCED. * 

* * 

* THIS CORE LOAD CHAINS TO COLDP * 

* TO ACTUALLY COLD START THE PROCESS * 



SET TIME SHARING TIME TO 



CHAIN TO COLDP 



0000 





1010 


START 


SLA 


16 


0001 


00 


D4000029 




STO L 


41 


0003 


30 


03201255 




CALL 


CHAIN 


0005 


30 


03593117 




CALL 


COLDP 


0008 




0000 




END 


START 
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SYMBOL TABLE 

START OOOO 

NO ERRORS IN ABOVE ASSEMBLY. 
COLDS 

DUP FUNCTION COMPLETED 
// DUP 

*STORECIL M 1 COLDS COLDS COLDS 
*CCEND 

CLB, BUILD COLDS 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


00 ID 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*IST 


TABLE 


3F0C 


0036 


*PNT 


TABLE 


3F42 


OOOC 


MAIN 


COLDS 


3F4E 




PNT 


COLDS 


3F44 




PNT 


COLDS 


3F48 




PNT 


COLDP 


3F4C 




CORE 




3F58 


40A8 



CLB, COLDS LD XQ 

D 45 CORELOADS NOT FOUND 

COLDP 

DUP FUNCTION COMPLETED 



®'' 



// JOB A 

MAINLINE CORE LOAD 
// FOR RSTAR 
*LIST ALL 

** RESTART CORE LOAD 
*IOCS(DISK, TYPEWRITER) 
C 

C THIS IS THE SYSTEM RESTART CORE LOAD. WHEN EVER A RESTART 
O CONDITION OCCURS THIS ROUTINE IS LOADED TO VARIABLE CORE TO MAKE 
C SURE SYSTEM CONSTANTS IN INSKEL COMMON ARE VALID. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),C0UMT(8) ,0FFLN<8) 

EXTERNAL GRADE 

DIMENSION RANGE(8),AHL(40),ALL(40),A(40) , B ( 40) , LOW (8 ) ,G ( 16 ) ,H< 16 > 

COMMON/ I NSKEL/SW0,SW1,SW2,SW3,SW4,SW5, DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE,IBASZ,IBAZZ,G,H,IENDT,IPERD,ITCNT 
2,IP0NT 

DEFINE FILE 1 ( 2, 320, U, I I ) 

DEFINE FILE 3(3, 320, U, II ) 
C RESTORE INSKEL COMMON 

SW0 = 2 

CALL UNMM-1,-1) 

CALL PTIME(TIME) 

WRITE(1,1)TIME 
1 FORMAT! ' PROCESS RESTART TIME"F7.2) 

READ(1'1)RANGE,L0W,A,B 

READ(3'l)JOBN,DAY,IENDT,SW3 

READ(3'2)SETPT 

READ(3'3)AHL,ALL 

GO TO <95,96),SW3 
96 CALL VIAQ 
95 CONTINUE 

SW0 = 1 

CALL C0UNT(0,1,5) 

CALL CLOCK) I ) 

IF (I-IENDT)101,102,103 

101 IPER=IENDT-I 
GO TO 104 

102 CALL CHAIN(GRADE) 

103 IPER=(24000-IENDT)+I 

104 AA=IPER*3.6 
IF(32000,-AA)102,105,105 
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105 IPER=AA 

CALL C0UNT(1,2,IPER) 
CALL VIAO 
END 
VARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSWK I*) = FFFE CSW2 ( I* ) =FFFD CSW3 ( I * ) = FFFC CSW4 ( I* ) = FFFB CSW5 ( I * ) =FFFA 
DAY(I*)=FFF9 JOBN ( I * ) =FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 LOW ( I * ) =FFD7-FFD0 SETPT ( I* ) =FFCF-FFC8 
COUMT< I*)=FFC7-FFC0 OFFLN( I* )=FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL ( R* ) =FF66-FF 18 A ( R* ) =FF16-FEC8 B ( R* ) =F£C6-FE78 
IBASEI I*)=FE77 I BASZ { I * ) = FE76 IBAZZ ( I* ) =FE75 G < R* ) =FE72-FE54 H( R* ) =FE 52-FE34 IENDT ( I* ) =FE33 

IPERD(I*)=FE32 I TCNT ( I * ) = FE31 IPONT< I* )=FE30 CTIMEfR )=000C AA ( R ) = 000E 11(1 )=0014 

STATEMENT ALLOCATIONS 
1 =0022 96 =0080 95 =0082 101 =0096 102 =009E 103 =00A2 104 =OOAA 105 =00B8 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
GRADE UNMK PTIME VIAO COUNT CLOCK CHAIN FSUB FMPY FLD FSTO IFIX FLOAT COMGO LDFAC 
MWRT MCOMP MIOF MDRED MDCOM MDAI MDAF MD I TYPEN EBPRT 

REAL CONSTANTS 

.360000E 01=0018 .320000E 05=001A 

INTEGER CONSTANTS 

2=001C 1=0010 3=001E 0=001F 5=0020 24000=0021 

CORE REQUIREMENTS FOR RSTAR 
COMMON INSKEL COMMON 464 VARIABLES 24 PROGRAM 172 

END OF COMPILATION 

RSTAR 

DUP FUNCTION COMPLETED 

■XSTORECIL M 1 RSTAR RSTAR COLDS 

*FILES«l f FILEltD 

*FILES(3,FILE3,1> 

*CCEND 

CLB, BUILD RSTAR 



CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


0010 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


002A 


*IST 


TABLE 


3F36 


0036 


*PNT 


TABLE 


3F6C 


OOOC 


*DFT 


TABLE 


3F78 


OOOC 


MAIN 


RSTAR 


3FAA 




PNT 


RSTAR 


3F6E 




PNT 


COLDS 


3F72 




LIBF 


EBPRT 


403C 


3F0C 


CALL 


UNMK 


40DC 




CALL 


PTIME 


4132 




LIBF 


MWRT 


42EC 


3F0F 


LIBF 


MIOF 


439D 


3F12 


LIBF 


MCOMP 


4379 


3F15 


LIBF 


MDRED 


4806 


3F18 


LIBF 


MDAF 


47A5 


3F1B 


LIBF 


MDAI 


47B2 


3F1E 


LIBF 


MDCOM 


4868 


3F21 


LIBF 


MDI 


47AA 


3F24 


CALL 


VIAQ 


4B12 




PNT 


GRADE 


3F76 




LIBF 


FSUB 


4B86 


3F27 


LIBF 


LDFAC 


4C10 


3F2A 


CALL 


PRT 


4C3E 




LIBF 


SUBIN 


4C88 


3F2D 


LIBF 


FADD 


4B92 


3F30 


LIBF 


IOU 


4CC2 


3F33 


CALL 


IOFIX 


4D5C 




CALL 


BT1BT 


4D8C 




CALL 


SAVE 


4CF8 




CALL 


BT2BT 


4DF0 




CORE 




4E0E 


31F2 
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CLB, RSTAR LD XQ 

D 45 CORELOADS NOT FOUND 

GRADE 

DUP FUNCTION COMPLETED 



®'/, 



II JOB A 

MAINLINE CORE LOAD 
// FOR COLDP 
*LIST ALL 

** ON-LINE COLD START CORE LOAD 
*IOCS (TYPEWRITER, KEY BOARD, DISK) 
C 

C THIS IS THE SYSTEM PROCESS COLD START AND RELOAD CORE LOAD. 
C IF SENSE SWITCH 6 IS ON IT DOES A PROCESS COLD START AND IF 
C SENSE SWITCH 6 IS OFF IT ASSUMES A RELOAD CONDITION HAS OCCURED 
C SO THAT IT INITIALIZES THE SYSTEM TO THE LAST CHECK POINT. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),C0UMT(8),0FFLN<8) 

EXTERNAL GRADE 

DIMENSION RANGE (8) ,AHL(40) , ALL ( 40 ) , A ( 40 ) , B (40 ) ,L0W(8) ,G( 16) ,H( 16) 

COMMON/ I NSKE LI SWO, SW 1, S W2, S W3,SW4, SW5, DAY, JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE,IBASZ,IBAZZ,G,H,IENDT,IPERD,ITCNT 
2,IP0NT 

DEFINE FILE 1(2, 320, U, II ) 

DEFINE FILE 3 ( 3, 320, U , I I ) 
C 

C TAKE ALL CLOSED LOOPS OFF-LINE UNTIL OPERATOR BRINGS THEM ON-LINE 
C 

SW0 = 2 
C 

C UNMASK ALL LEVELS 
C 

CALL UNMK(-1,-1) 
C SET UP INSKEL COMMON 

READ(1'1)RANGE,L0W,A,B 

READ( 1 '2)G,H 

SW5 = 5 

SW1 = 1 
C 

C SET UP BASE TIMES FOR SCHEDULER 
C 

CALL CLOCK! I ) 

J=I/1000*1000 

K=I-J 

IBASE=J+(K/250*250) 

IBASZ=J 

IBAZZ=J/8000*8000+250 

SW3 = 2 

CALL COUNT(0, 1, 1) 
C 

C TEST FOR RELOAD OR COLD START 
C 

CALL SSWTCH(6,II) 

GO TO (200,1001,11 
200 CONTINUE 

WRITE(1,3) 
3 FORMAT! ' PROCESS COLD START') 

READ(2,2)DAY, JOBN 
2 FORMAT! 11,15) 

CALL CHAIN(GRADE) 

100 READO'l) JOBN, DAY, IENDT,SW3 
READ(3'2)SETPT 
READ(3'3)AHL,ALL 

SW0=1 

GO TO (96,95), SW3 
96 CONTINUE 

CALL CLOCK! I ) 
IF(I-IENDT)101,102,103 

101 IPER=IENDT-I 
GO TO 104 

102 CALL CHAIN(GRADE) 

103 IPER=(24000-IENDT)+I 

104 AA=IPER*3.6 
IF(32000.-AA)102,105,105 

105 IPER=AA 

CALL COUNT! 1,2, IPER) 
95 WRITE! 1,106) 
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106 FORMAT!' PROCESS RESTART CHECK POINT') 
CALL VIAQ 
END 
VARIABLE ALLOCATIONS 

CSWOd*)=FFFF CSWK I*)=FFFE CSW2 ( I* )=FFFD CSW3 ( I * ) = FFFC CSW4d*) = FFFB CSW5d*)=FFFA 

DAY(I*)=FFF9 JOBN ( I * ) =FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 LOW ( I* ) = FFD7-FFD0 SETPT ( I* ) =FFCF-FFC i 

C0UMTd*)=FFC7-FFC0 OFFLNd * ) = FFBF-FFB8 AHL < R* ) =FFB6-FF68 ALL ( R* ) = F'F66-FF 18 A ( R* ) = FF16-FEC8 B ( R* ) =FEC6-FE 76 

IBASE( I*)=FE77 I BASZ ( I* ) =FE76 IBAZZ ( I* ) = FE75 G ( R* ) =FE72-FE54 H ( R* ) = FE 52-FE34 IENDT ( I* ) =FE33 

IPERDI I.*)=FE32 I TCNT ( I * ) = FE31 I PONT ( I* ) =FE30 AA ( R )=000C IKI ) = 0012 Id )=0013 

J(I )=0014 K(I )=0015 IPERII )=0016 

STATEMENT ALLOCATIONS 
3 =0026 2 =0032 106 =0035 200 =OOBB 100 =OOCB 96 =00F2 101 =OOFD 102 =0105 103 =0109 104 -0111 
105 =011F 95 =0129 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
GRADE UNMK CLOCK COUNT SSWTC CHAIN VIAQ FSUB FMPY FLD FSTO IF IX FLOAT COMGO 
MRED MWRT MCOMP 

REAL CONSTANTS 

•360000E 01=0018 

INTEGER CONSTANTS 

2=001C 1=001D 5=001E 1000=001F 250=0020 8000=0021 0=0022 6=0023 3=0024 24000=0025 

CORE REQUIREMENTS FOR COLDP 
COMMON INSKEL COMMON 464 VARIABLES 24 PROGRAM 

END OF COMPILATION 

COLDP 

DUP FUNCTION COMPLETED 

*DELET M COLDP DUM 

DUM 

D25 NAME NOT IN L/F 

*STORECIL M 1 COLDP COLDP COLDS 

*FILES< If FILE1,1) 

*FILES(3,FILE3,1) 

*CCEND 



COUNT SSWTC CHAIN 


VIAQ FSUB 


FMPY 


FLD FSTO 


IF IX 


MIOI MDRED MDCOM 


MDAI MDAF 


MDI 


TYPEN HOLEB 


EBPRT 


•320000E 05=001A 










D 5=001E 1000=001F 


250=0020 


8000=0021 


0=0022 


6 = 002 



CLB, BUILD COLDP 



CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


3E82 


OOOC 


#IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


002A 


*IST 


TABLE 


3F36 


0036 


*PNT 


TABLE 


3F6C 


OOOC 


#DFT 


TABLE 


3F78 


OOOC 


MAIN 


COLDP 


3FBD 




PNT 


COLDP 


3F6E 




PNT 


COLDS 


3F72 




LIBF 


EBPRT 


40A8 


3F0C 


LIBF 


HOLEB 


4148 


3F0F 


CALL 


UNMK 


426A 




LIBF 


MDRED 


431C 


3F12 


LIBF 


MDAF 


42BB 


3F15 


LIBF 


MDAI 


42C8 


3F18 


LIBF 


MDCOM 


437E 


3F1B 


CALL 


SSWTC 


4628 




LIBF 


MWRT 


47DC 


3F1E 


LIBF 


MCOMP 


4869 


3F21 


LIBF 


MRED 


47C9 


3F24 


LIBF 


MIOI 


4892 


3F27 


PNT 


GRADE 


3F76 




LIBF 


MDI 


42C0 


3F2A 


LIBF 


FSUB 


4CA2 


3F2D 


LIBF 


LDFAC 


4D2C 


3F30 


CALL 


VIAQ 


4D5A 




CALL 


PRT 


4DBA 




CALL 


BT2BT 


4E04 




CALL 


SAVE 


4E20 




CALL 


IOFIX 


4E84 




LIBF 


IOU 


4EB4 


3F33 


CALL 


BT1BT 


4EEA 




CORE 




4F50 


30B0 
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II JOB A 

MAINLINE CORE LOAD 
// FOR CEINT 
*LIST ALL 

** CE UNMASK CORE LOAD 
*IOCS(TYPEWRITER) 
C 

C THIS CORE LOAD IS FOR USE WITH THE CE INTERRUPT. IT MAKES 
C SURE THAT ALL LEVELS ARE UNMASKED AFER USE OF THE CE INTERRUPT 
C ROUTINES. 

C 

WRITE(l.l) 
1 FORMAT!' CE UNMASK CORE LOAD — PRESS START TO EXIT FROM CORE LOAD') 
PAUSE 

CALL UNMK(-1,-1) 
CALL VIAQ 
END 

STATEMENT ALLOCATIONS 
1 =0006 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
UNMK VIAQ MWRT MCOMP PAUSE TYPEN E8PRT 

INTEGER CONSTANTS 

1=0004 0=0005 

CORE REQUIREMENTS FOR CEINT 
COMMON INSKEL COMMON VARIABLES 4 PROGRAM 54 

END OF COMPILATION 



CEINT 

DUP FUNCTION COMPLETED 

// DUP 

fSTORECIL M 1 CEINT CEINT CEINT 

*CCEND 



CLB, BUILD CEINT 



CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


OOOF 


*IST 


TABLE 


3F1B 


0036 


*PNT 


TABLE 


3F52 


0008 


MAIN 


CEINT 


3F7E 




PNT 


CEINT 


3F54 




PNT 


CEINT 


3F58 




LIBF 


EBPRT 


3F94 


3F0C 


LIBF 


MWRT 


41BE 


3F0F 


LIBF 


MCOMP 


424B 


3F12 


LIBF 


PAUSE 


4670 


3F15 


CALL 


UNMK 


4684 




CALL 


VIAQ 


46CE 




CALL 


PRT 


472E 




LIBF 


IOU 


4778 


3F18 


CALL 


IOFIX 


4812 




CALL 


BT1BT 


4842 




CALL 


SAVE 


47AE 




CORE 




48A8 


3758 



CLB, CEINT LD X« 
DUP FUNCTION COMPLETED 



<§),',' 



JOB A 

* THE FOLLOWING ARE THREE DUMMY CORE LOADS FOR USE IN REPLACING 
// * OR DELETING SYSTEM CORE LOADS. 
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// * 

// * MAINLINE CORE LOAD 
// ASM OUM 



NO ERRORS IN ABOVE ASSEMBLY. 
DUM 

DUP FUNCTION COMPLETED 
*STORECI M 1 DUM DUM DUM 
*CCEND 

CLB, BUILD DUM 



CLB, DUM LD XO 

DUP FUNCTION COMPLETED 
// * INTERRUPT CORE LOAD 
// ASM IDUM 

NO ERRORS IN ABOVE ASSEMBLY. 
IDUM 

DUP FUNCTION COMPLETED 
*STORECI I 1 IDUM IDUM 
*CCEND 



CLB, BUILD IDUM 



CLB, IDUM LD XQ 

DUP FUNCTION COMPLETED 

// * COMBINATION CORE LOAD 

// ASM CDUM 

NO ERRORS IN ABOVE ASSEMBLY. 
CDUM 

DUP FUNCTION COMPLETED 
■XSTORECI C 1 CDUM CDUM CDUM 
*CCEND 



CLB, BUILD CDUM 

CLB, CDUM LD XO 
DUP FUNCTION COMPLETED 



® 



// JOB A 

// * MAINLINE CORE LOAD 

// FOR GRADE 

*LIST ALL 

** GRADE CHANGE PROGRAM 

*IOCS(DISK, TYPEWRITER) 

C 

C THIS PROGRAM STARTS THE PRODUCTION OF A NEW GRADE. 

C 

INTEGER SWO,SWl,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),COUMT(8),OFFLN(8) 

DIMENSION INPP(8) 

DIMENSION RANGE (8) , AHLI40) , ALL ( 40 ) , A ( 40 ) , B ( 40 ) , LOW ( 8 ) 

COMMON/ I NSKE L/ SWO, SW 1 , SW2 , SW3, SW4, SW5 , DAY, J OBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE,IBASZ, IBAZZ 

EQUIVALENCE ( VALUE ( 2 ) , I ENDT ) 

DEFINE FILE 2 ( 100 , 320, U, JOBN ) 

DEFINE FILE 3 ( 3, 320 , U , I I ) 



TAKE ALL LOOPS OFF CLOSED LOOP CONTROL UNTIL AFTER CHANGE 

SW0 = 2 

READ NEXT SEQUENTIAL GRADE FILE OFF OF DISK 

IF (JOBN) 999, 999, 9999 
999 SW3=2 

WRITE! 3« 1) JOBN, DAY, I ENDT, SW3 
CALL PTIME(TIME) 
WRITE(1,998)TIME,DAY 
WRITE(4,998)TIME,DAY 
WRITE(5,998)TIME,DAY 
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998 FORMAT!' PRODUCTIUN STOP TIME'F7.2,' DAVI2) 

CALL VIAQ 
9999 SW3=1 

IF < 10l-J08N)2,2,3 

2 JOBN=l 

3 READI2' JOBN1I , I TIME, SETPT, AHL, ALL 
DO 10 J=l,8 

IFISETPT! J) ) 10,10,4 

4 SETPT ( J)=SETPT( J)*RANGE< J)/100.+L0W( J) 

10 CONTINUE 
C 

C CALL COUNT TO SET UP TERMINATION OF GRADE ITIME SECONDS FROM NOW. 
C 

CALL COUNT ( 1,2, ITIME) 

IENDT=ITIME/3.6 

CALL CLOCK(II) 

IENDT=IENDT+II 

IF ( 24000- IENDT) 100,100,101 

100 IENDT=IENDT-24000 

101 CONTINUE 

WRITE! 3' 1 )JOBN,DAY, IENDT ,SW3 

WRITE(3'2)SETPT 

WRITE! 3" 3)AHL,ALL 

SW0=1 

II=ITIME/3600 

ITIME=(ITIME-( 11*3600) )/60 

TIME=II+ITIME/100. 

CALL PTIME(TIZ) 

WRITE! 1,11) I,TIME,TIZ,DAY 

WRITE (4, 11) I ,TIME,TIZ,DAY 

WRITEI5, 11)1, TIME, TIZ, DAY 

11 FORMAT!//' START OF GRADE' 16,' PRODUCTION TIMfi'F9.2,' START TIME'F 
19.2,' DAY'I3) 

WRITE! 1,500) 

500 FORMAT! ' OP-GUIDE LIMITS FOR NEW GRADE') 
WRITE! 1,501) 

501 FORMAT!" POINT HIGH LIMIT LOW LIMIT', 10X" POINT HIGH LIMIT 
1 LOW LIMIT' ) 

DO 503 J=l,39,2 
K=41-J 
J1 = J 
J2=J+1 
503 WRITE! 1 , 502 ) Jl , AHL ( K ) ,ALL(K) ,J2,AHL(K-1) ,ALL(K-1) 

502 FORMAT! I6,2F13.2,10XI6,2F13.2) 
WRITE! 1,510) 

510 FORMAT!' CLOSED LOOP SET POINTS FOR NEW GRADE") 
WRITE! 1,511) 

511 FORMAT (3X< POINT' , 5X ' SETPT ', 5X ' PO INT ' , 5X' SETPT ", 5X • POINT ' ,5X • SETPT ' 
1,5X'P0INT' ,5X'SETPT« ) 

DO 6 J=l,8 

6 IMPP! J)=(SETPT( J) -LOW! J) ) *100. /RANGE ( J ) 
DO 30 1=1,5,4 

J1=I 
J2=I+1 
J3=I+2 
J4=I+3 
IA=9-I 
IB=8-I 
IC=7-I 
ID=6-I 
30 WRITE(1,7)J1,INPP(IA) ,J2,INPP(IB>,J3,INPP(IC>,J4,INPP!ID) 

7 FORMAT! 18,110,3! 110,110) ) 
CALL VIAQ 

END 
VARIABLE ALLOCATIONS 

CSWO! I*)=FFFF CSW 1 ( I * ) =FFFb CSW2 < I* ) = ;: FFD CSW3 ( I * ) =FFF C CSW4! I* ) = FF FB CSW5 ( I* ) =FFFA 
DAY(I*)=FFF9 JOBN ( I * ) = FFF8 VALUE ( I* ) = I-FF7-FFE9 RANGE ( R* ) = FF E6-FFD8 LOW ( I* ) = FFD7-FFD0 SETPT ( I *> =FFCF-FFC8 
COUMT! I*)=FFC7-FFC0 OFFLN ( I* ) =FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL ( R* > =FF66-FF18 A I R* ) = FF 16-FEC8 B< R* > =FEC6-FE78 
IBASE! I*)=FE77 I BASZ ( I * ) = FE76 IBAZZ ( I* ) = !-E75 IENDT ( I* )=FFF6 CTIMEIR ) = 000C CTIZIR )=000E 
INPPd 1=0019-0012 IIII )=001A 1(1 ) = 001B ITIMEU )=001C J(I )=001D K(I )=001E 

Jill )=001F J2(I )=0020 J3(I )=0021 J4 ( I )=0022 I A I I ) = 0023 IBII )=0024 

IC(I )=0025 IDII )=0026 

STATEMENT ALLOCATIONS 
998 =003F 11 =0054 500 =0077 501 =0088 50> =00AC 510 =00B4 511 =00C9 7 =00F2 999 =0101 9999 =012E 
2 =0138 3 =013C 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
PTIME VIAQ COUNT CLOCK FADD 
MWRT MCOMP MIOFX MIOIX MIOF 



500 


= 0077 


501 


= 0088 


50>_ 


= 00AC 


510 


= 00B4 


511 


= 00C9 


7 


= 00F2 


999 


= 0101 


4 


= 015A 


10 


= 0178 


100 


= 01AO 


101 


= 01A6 


503 


= 022D 


6 


= 025D 


30 


= 02B0 



FMPY 


FMPYX 


FDIV 


FDIVX 


FSTO 


IFIX 


FLOAT 


ISTOX 


STFAC 


SBFAC 


MIDI 


SU8SC 


MDRED 


MDWRT 


MDCOM 


MDAI 


MDAF 


MDI 


TYPEN 


EBPRT 
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(3l) C ° ntil 
^*^ REAL 



CONSTANTS 
.100000E 03=002C .360000E 01=002E 

INTEGER CONSTANTS „ „ „ 

2=0030 3=0031 1=0032 4=0033 5=0034 101=0035 8=0036 24000=0037 3600=0038 60=0039 
39=003A 41=003B 9=003C 7=003D 6=003E 

CORE REQUIREMENTS FOR GRADE 
COMMON INSKEL COMMON 396 VARIABLES 44 PROGRAM 696 

END OF COMPILATION 

GRADE 

DUP FUNCTION COMPLETED 

"KDELET M GRADE DUM 

GRADE 

D25 NAME NOT IN L/F 

*STORECIL M 1 GRADE GRADE RSTAR 

*FILES(2,FILE2,1) 

*FILES(3,FILE3,1) 

#CCEND 

CLB, BUILD GRADE 

CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0036 


*IST 


TABLE 


3F42 


0036 


*PNT 


TABLE 


3F78 


0008 


*DFT 


TABLE 


3F80 


OOOC 


MAIN 


GRADE 


4079 




PNT 


GRADE 


3F7A 




PNT 


RSTAR 


3F7E 




LIBF 


EBPRT 


4264 


3F0C 


LIBF 


MDWRT 


4457 


3F0F 


LIBF 


MDI 


4310 


3F12 


LIBF 


MDCOM 


43CE 


3F15 


CALL 


PTIME 


4684 




LIBF 


MWRT 


483E 


3F18 


LIBF 


MIOF 


48EF 


3F1B 


LIBF 


MIOI 


48F4 


3F1E 


LIBF 


MCOMP 


48CB 


3F21 


CALL 


VI AG 


4CF0 




LIBF 


MDRED 


436C 


3F24 


LIBF 


MDAI 


4318 


3F27 


LIBF 


MDAF 


430B 


3F2A 


LIBF 


FADD 


4D70 


3F2D 


LIBF 


STFAC 


4E04 


3F30 


LIBF 


SBFAC 


4E08 


3F33 


LIBF 


MIOFX 


48FB 


3F36 


LIBF 


MIOIX 


4900 


3F39 


CALL 


PRT 


4E1C 




CALL 


BT2BT 


4E66 




CALL 


SAVE 


4E82 




CALL 


IOFIX 


4EE6 




LIBF 


SUBIN 


4F16 


3F3C 


LIBF 


IOU 


4F50 


3F3F 



CALL BT1BT 4F86 

CORE 4FEC 3014 



CLB, GRADE LD XQ 
DUP FUNCTION COMPLETED 



®; 



/ * TWO MINUTE LIMIT SCAN ROUTINE — COMBINATION CORE LOAD 
// * THIS PROGRAM IS INITIATED EVERY 2 MINUTES OR BY PROCESS INTERRUPT 
// * 

// * FIRST PART IS THE CONVERSION AND LIMIT CHECK SUBROUTINE USED BY AI 
// * USER SUBROUTINE 
// FOR 
*LIST ALL 

** CONVERSION AND LIMIT CHECK SUBROUTINE 
SUBROUTINE LIMITU,J) 
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THIS SUBROUTINE IS THE SUBROUTINE TO BE USED IN THE AIS READ AND 
TRANSFER FUNCTION OF THE MAIN LINE CORE LOAD. 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE! 15) , SETPT ( 8 ) , COUMT ( 8 ) ,0FFLN(8) 

DIMENSION RANGE(8),AHL!40),ALL<40) , A( 40 ) , B (40 ) , LOW ( 8 ) ,G ( 16 ) ,H I 16 ) 

COMMON/ I NSKEL/SWO, SW1,SW2,SW3,SW4,SW5, DA Y..JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE,IBASZ, IBAZZ,G,H, IENDT, IPERD, ITCNT 
2,IP0NT 

CONVERT I PARAMETER TO ARRAY INDEX 

K=40-I 
M=I + 1 



CONVERT AI VALUE TO ENGINEERING UNITS 



VSC=A(K)*LD< Jl+BIK) 

TEST FOR HIGH LIMIT VIOLATION 

IF(VSC-AHL(K))2,1,1 
1 WRITE(l,100)M,VSC 
100 FORMAT! ' HIGH LIMIT VIOLATION 
GO TO 4 

TEST FOR LOW LIMIT VIOLATION 



POINT 1 , 13, ' 



2 IF(VSC-ALL(K))3,3,4 

3 WRITE(1,300)M,VSC 
300 FORMAT! • LOW LIMIT VIOLATION 

4 RETURN 
END 

VARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSWK I*)=FFFE 

DAY(I*)=FFF9 JOBN ( I*) =FFF8 

C0UMT(I*)*FFC7-FFC0 OFFLN! I* )=FFBF-FFB8 

IBASE! I*)=FE77 I BASZ ( I*) =FE76 

IPERD(I*)=FE32 I TCNT ( I * ) = FE31 

STATEMENT ALLOCATIONS 
100 =0008 300 =0020 1 =006C 2 



POINT' ,13, ' 



VALUE',F12.4) 



VALUE' ,F12.4) 



CSW2! I*)=FFFD CSW3 ( I*) =FFFC 
VALUE! I*)=FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 
AHL(R*)=FFB6-FF68 ALL ( R* ) = FF66-FF18 
IBAZZ! I*)=FE75 G ( R* ) =FE72-FE54 

IPONT! I*)=FE30 CVSCtR )=0000 



CSW4! I*)=FFFB CSW5 

LOW! I*)=FFD7-FFD0 SETPT 

A(R*)=FF16-FEC8 B 

H(R*)=FE52-FE34 IENDT 

K(I )=0002 M 



( I" 


= FFFA 


( I * 


=FFCF-FFC 


(R« 


=FEC6-FE7 


( I" 


= FE33 


(I 


= 0003 



FEATURES SUPPORTED 
ONE WORD INTEGERS 



CALLED SUBPROGRAMS 
LD FADDX FSUBX 



FSTO 



FLOAT LDFAC 



MCOMP MIOF 



subsc sub:in 



INTEGER CONSTANTS 

40=0006 1=0007 



CORE REQUIREMENTS FOR LIMIT 
COMMON INSKEL COMMON 



464 VARIABLES 



134 



END OF COMPILATION 



LIMIT 

DUP FUNCTION COMPLETED 

// * LEAVE THIS SUBROUTINE IN TEMP STORAGE SINCE IT IS ONLY USED 

// * WITH THIS MAINLINE 

// * NOW COMPILE THE MAINLINE 

// * COMBINATION CORE LOAD 

// FOR SCAN2 

*LIST ALL 

** TWO MINUTE SCAN FOR LIMIT VIOLATIONS OF THOSE POINTS ON OP-GUIDE 

*IOCS (TYPEWRITER) 

C 

C THIS COMBINATION CORE LOAD SCANS ALL OF THE OP-GUIDE POINTS ON THE 

C SYSTEM AND NOTES ANY LIMIT VIOLATION TO THE OPERATOR. 



INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),C0UMT(8) ,0FFLN(8) 

EXTERNAL LIMIT 

DIMENSION INPI42) 

DIMENSION RANGE(8),AHL(40),ALL(40),A(40) ,B(40),LOW(8),G(16),H(16) 

COMMON/ I NSKEL/SWO, SW1,SW2,SW3,SW4,SW5, DA Y,JOBM, VALUE, RANGE, LOW, SET 
1PT, COUMT, OFFLN,AHL, ALL, A, B, IBASE, IBASZ, IBAZZ ,G ,H, IENDT , IPERD, ITCNT 
2, IPONT 
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Continued 

C 

C GET TIME IN HOURS-MINUTES 

C 

CALL PTIME(TIME) 
C 

C DETERMINE IF THIS IS A DEMAND SCAN OR THE NORMAL 2 MINUTE SCAN BY 
C DETERMINING WHAT LEVEL IT IS XEQ-ING ON 
C 

I=7+LD(104) 

IF(LD(I)-23)1,1,2 
C 

C DEMAND SCAN 
C 

1 WRITE(1,3)DAY,TIME 

3 FORMAT!//, • DEMAND SCAN DAY • , 13, 4X ' T IME • , Fl 2. 2 ) 
GO TO 5 

C 

C NORMAL 2 MINUTE SCAN 

C 

2 WRITE(1,4)DAY,TIME 

4 FORMAT!//,' NORMAL SCAN DAY ' , 13 ,4X • T IME • , F12.2 ) 
C 

C READ 40 RELAY POINTS USING AIS READ AND TRANSFER FUNCTION 
C 

5 CALL AIS(15001,INP(1),INP(42),0, LIMIT) 

6 CALL AISIO.I ) 
GO TO (6, 7), I 

7 CALL DPART 
END 

VARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSWKI*)=FFFE CSW2 ( I* ) = FFFD CSW3 ( I* ) =FFFC CSW4 ( I * ) =FF FB CSW5 ( I* ) =FFF A 

STATEMENT ALLOCATIONS 
3 =0036 4 =0049 1 =006D 2 =0077 5 =007F 6 =0095 7 =009F 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
LIMIT PTIME LD AIS DPART COMGO , MWRT MCOMP MIOF MIOI TYPEN EBPRT 

INTEGER CONSTANTS 

7=0030 104=0031 23=0032 1=0033 15001=0034 0=0035 

CORE REQUIREMENTS FOR SCAN2 
COMMON INSKEL COMMON 464 VARIABLES 48 PROGRAM 114 

END OF COMPILATION 

SCAN2 

DUP FUNCTION COMPLETED 

#DELET C SCAN2 CDUM 9999 

SCAN2 

D25 NAME NOT IN L/F 

#STORECIL C 1 SCAN2 SCAN2 RSTAR 1515 

*CCEND 

CLB, BUILD SCAN2 

CORE LOAD MAP 

TYPE NAME ARG1 ARG2 

*CDW TABLE 3E82 OOOC 
*IBT TABLE 3E8E 001D 
*FIO TABLE 3EAB 0010 
*ETV TABLE 3EBB 0051 
*VTV TABLE 3F0C 0021 
*IST TABLE 3F2D 0036 
*PNT TABLE 3F64 0008 
MAIN SCAN2 3FC8 
PNT SCAN2 3F66 
PNT RSTAR 3F6A 
LIBF EBPRT 400E 3F0C 
CALL PTIME 40BA 
CALL LD 40EA 
LIBF MWRT 4284 3F0F 
LIBF MIOI 433A 3F12 
LIBF MIOF 4335 3F15 
LIBF MCOMP 4311 3F18 
CALL LIMIT 476F 
CALL DPART 47C2 
CALL PRT 47D0 
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LIBF 


SUBIN 


481A 


3F1B 


LIBF 


FADD 


4874 


3F1E 


LIBF 


IOU 


48F2 


3F21 


CALL 


IOFIX 


498C 




CALL 


BT1BT 


49BC 




CALL 


SAVE 


4928 




LIBF 


FADDX 


486E 


3F24 


LIBF 


FSUBX 


4863 


3F27 


LIBF 


LDFAC 


4A20 


3F2A 


CALL 


VIAO 


4A4E 




CORE 




4AB0 


354F 



CL6, SCAN2 LD XO 
DUP FUNCTION COMPLETED 



®'/,i 



// JOB A 

MAINLINE CORE LOAD 
// FOR LOG15 
*LIST ALL 

** 15 MINUTE LOG ROUTINE 
*IOCS(TYPEWRITER) 
C 

C THIS IS THE FIFTEEN MINUTE LOG PROGRAM WHICH LOGS THE VALUES OF 
C ALL PROCESS VARIABLES IN THE SYSTEM 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),COUMT(8),OFFLN(8> 

DIMENSION INP(42) ,VSC(40) , INPP( 10) 

DIMENSION RANGE(8),AHL(40),ALL(40>,A<40) ,B(40) , LOW ( 8 ) ,G ( 16 ) , H ( 16) 

C0MM0N/INSKEL/SW0,SW1,SW2,SW3,SW4,SW5,DAY,J0BN,VALUE,RANGE,L0W,SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE,IBASZ, IBAZ',G,H, IENDT , I PERD , I TCNT 
2,IP0NT 
C 

C START INPUT OF RELAY POINTS 
C 

CALL AIS(12001,INP( 1 ) , INP ( 42 ) ,0 ) 
C 

C PRINT HEADER OF LOG 
C 

CALL PTIME(TIME) 

WRITE(l t l)DAY,TIME 

WRITE(5,1)DAY,TIME 

1 FORMAT*//, ' L0G15 DAY > , I 3,4X ' T IME ■ , F9« 2 ) 
WRITE(1,100) 

WRITE<5,100) 

100 FORMAT! • OP-GUIDE POINTS') 
WRITE (5,2) 

WRITE (1,2) 

2 FORMAT (3X» POINT" , 5X ' VALUE' , 5X' PO INT ' , 5X' VALUE • , 5X ' PO INT ' ,5X' VALUE • 
l,5X'POINT',5X'VALUE' ) 

C 

C START INPUT OF SS AI AND CONVERT RELAY AI WHILE SS IS COMING IN 

C 

CALL AIS(02001,INPP( 1),INPP110) ,4096) 

DO 10 1=1,40 
10 VSC(I)=A(I )*INP( I )+B(I ) 
C 

C PRINT TABLE OF RELAY AI POINTS 
C 

DO 20 J=l,37,4 

K=41-J 

J1 = J 

J2=J+1 

J3=J+2 

J4=J+3 

WRITE ( 5,3) J1,VSC(K) , J2 , VSC ( K-l ) , J3, VSC ( K-2 ) ,J4,VSC(K-3) 
20 WRITE (1,3) J 1, VSC (K), J 2, VSC (K-l), J 3, VSC (K-2) ,J4,VSC(K-3) 

3 F0RMAT(4( I8,F12.2) ) 
C 

C PRINT THE SS VALUES 
C 

WRITE(1,101) 

WRITE(5,101) 

101 FORMAT(" CLOSED LOOP POINTS') 
WRITE! 1,2) 

WRITE(5,2) 

4 CALL AIS(0,I ) 
GO TO (4, 5), I 

5 DO 6 J=l,8 
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6 INPP! J)=( INPP! J) -LOW! J) >* 100. /RANGE! J) 
DO 30 1=1,5,4 

J1 = I 
J2=I+1 
J3=I+2 
J4=I+3 
IA=9-I 
IB=8-I 
IC-7-I 
ID=6-I 

WRITE (5, 7) J 1, INPPI I A), J 2, INPPI IB),J3,INPP(IC),J4,INPP(ID) 
30 WRITE (1,7) Jl, INPPI I A) ,J2, INPPI IB) ,J3, INPPI IC) ,J4, INPPI ID) 

7 FORMAT! 18,110,31 110,110) ) 
CALL VIAQ 

END 
VARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSW1(I*)=FFFE 

DAY(I*)=FFF9 JOBN ( I* ) =FFF8 

COUMT! I*)=FFC7-FFC0 0FFLN(I*)=FFBF-FFB8 

IBASEI I*)=FE77 I BASZ I I* ) =FE76 

IPERD(I*)=FE32 I TCNT I I * ) = FE31 

INPPII )=0087-007E III 1=0088 

J3II )=008D J4II )=008E 



CSW2! I*)=FFFD 

VALUE! I*)=FFF7-FFE9 

AHLI R*)=FFB6-FF68 

IBAZZ! I*)=FE75 

IPONT! I*)=FE30 

J! I )=0089 

IAII )=008F 



CSW3(I*)=FFFC CSW4II*) = 

RANGE(R*)=FFE6-FFD8 LOWII*); 

ALL (R*)=FF66-FF18 A(R*) = 

G(R*)=FE72-FE54 H(R*P 



FFFB CSW5I I*)=FFFA 
FFD7-FFD0 SETPT 
FF16-FEC8 B 
FE52-FE34 IENDT 



CVSCIR )=004E-0000 CTIMEIR )=0050 

K(I )=008A Jill )=008B 

IB { I )=0090 ICII )=0091 



INP 
J2 
ID 



*)=FFCF-FFC8 
*)=FEC6-FE78 
*)=FE33 

) =0070-0054 

)=008C 

)=0092 



STATEMENT ALLOCATIONS 
1 =00AA 100 =OOBA 
6 =0206 30 =0281 



=OOED 101 



=00FE 10 =0154 20 =01C2 



FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 



CALLED SUBPROGRAMS 
AIS PTIME VIAQ FADDX FMPY FDIVX FLDX 
MIOFX MIOIX MIOF MIOI SUBSC TYPEN EBPRT 



FSTOX 



COMGO 



REAL CONSTANTS 

.100000E 03=0098 



INTEGER CONSTANTS 
12001=009A 0=009B 1=009C 5=009D 2001=009E 4096=009F 
2=00A4 3=00A5 8=00A6 9=00A7 7=00A8 6=00A9 



37=00A1 



CORE REQUIREMENTS FOR L0G15 
COMMON INSKEL COMMON 



464 VARIABLES 



152 PROGRAM 



530 



END OF COMPILATION 



L0G15 

DUP FUNCTION COMPLETED 

*DELET M L0G15 DUM 

L0G15 

D25 NAME NOT IN L/F 

*STORECIL M 1 L0G15 L0G15 RSTAR 

*CCEND 



CLB, BUILD L0G15 



CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0021 


*IST 


TABLE 


3F2D 


0036 


*PNT 


TABLE 


3F64 


0008 


MAIN 


L0G15 


4071 




PNT 


L0G15 


3F66 




PNT 


RSTAR 


3F6A 




LIBF 


EBPRT 


4216 


3F0C 


CALL 


PTIME 


42C2 




LIBF 


MWRT 


447C 


3F0F 


LIBF 


MIOI 


4532 


3F12 


LIBF 


MIOF 


452D 


3F15 


LIBF 


MCOMP 


4509 


3F18 


LIBF 


FADDX 


4948 


3F1B 


LIBF 


MIOFX 


4539 


3F1E 


LIBF 


MIOIX 


453E 


3F21 


CALL 


VIAQ 


49CC 




CALL 


PRT 


4A2C 




LIBF 


SUBIN 


4A76 


3F24 
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LIBF 


FADD 


494E 


3F27 


LIBF 


IOU 


4AB0 


3F2A 


CALL 


IOFIX 


4B4A 




CALL 


BT1BT 


4B7A 




CALL 


SAVE 


4AE6 




CORE 




4BE0 


3420 



CLB, L0G15 LD XQ 
DUP' FUNCTION COMPLETED 



®'A 



II JOB A 

MAINLINE CORE LOAD 
// FOR L0G60 
** ONE HOUR LOG 
*IOCS<TYPEWRITER) 
*LIST ALL 
C 

C THIS PROGRAM PUTS OUT THE HOUR LOG. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 
INTEGER VALUE (15) , SETPTI8) ,COUMT ( 8 ) , OFFLN ( 8 ) 

DIMENSION RANGE (8) , AHL ( 40 ) , ALL ( 40 > , A< 40) ,B < 40 ) ,LOW < 8 ) ,G < 16 ) , H< 16 ) 
COMMON/ I NSKEL/ SWO, SW 1, SW2 , SW3 , SW4, SW5 , DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ, IBAZZ ,G ,H, I ENDT , IPERD , ITCNT 
2,IP0NT 
C 

C PRINT HEADING 
C 

CALL PTIME(TIME) 
WRITE( 1,1)DAY,TIME 
WRITE(4,1)DAY,TIME 
WRITE(5,1)DAY,TIME 
1 FORMATl//, ' ONE HOUR LOG DAY ■ , I 3 , 5X ' T IME ' , F9 . 2 ) 
C 

C OUTPUT ONE HOUR LOG 
C 
C 

C EXIT FROM ROUTINE 
C 

CALL VIAQ 
END 
VARIABLE ALLOCATIONS 

CSWO( I*)=FFFF CSWK I*)=FFFE CSW2 ( I* ) =FFFD CSW3 ( I* ) =FFFC CSW4 ( I* ) =FFFB CSW5 ( I* ) =FFF A 
0AY(I*)=FFF9 JOBN ( I * ) = FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 LOW ( I* ) = FFD7-FFD0 SETPT ( I* ) =FFCF-FFC8 
C0UMT(I*)=FFC7-FFC0 OFFLN< I#)=FFBF-FFB6 AHL < R* ) =FFB6-FF68 ALL ( R* ) =FF66-FF18 A ( R* ) =FF 16-FEC8 B t R* ) =FEC6-FE78 
IBASE(I*)=FE77 I BASZ ( I * ) = FE76 IBAZZI I* ) =FE75 G ( R# ) =FE72-FE54 H { R* ) = FE52-FE34 I ENDT ( I *<) =FE33 

IP£RD( I*)=FE32 ITCNT ( I * ) =FE31 I PONT ( I* ) =FE30 ^CTIME(R )=0000 

STATEMENT ALLOCATIONS 
1 =0005 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
PTIME VIAO MWRT MCOMP MIOF MIOI TYPEN EBPRT 

INTEGER CONSTANTS 

1=0002 4=0003 5=0004 

CORE REQUIREMENTS FOR L0G60 
COMMON INSKEL COMMON 464 VARIABLES 2 PROGRAM 52 

END OF COMPILATION 

L0G60 

DUP FUNCTION COMPLETED 

// DUP 

*STORECIL M 1 L0G60 L0G60 RSTAR 

*CCEND 

CLB, BUILD LOG60 

CORE LOAD MAP 

TYPE NAME ARG1 ARG2 
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Confirmed 






*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3FOC 


0018 


*IST 


TABLE 


3F24 


0036 


*PNT 


TABLE 


3F5A 


0008 


MAIN 


L0G60 


3F7B 




PNT 


L0G60 


3F5C 




PNT 


RSTAR 


3F60 




LIBF 


EBPRT 


3F98 


3F0C 


CALL 


PTIME 


4044 




LIBF 


MWRT 


41FE 


3F0F 


LIBF 


MIOI 


42B4 


3F12 


LIBF 


MIOF 


42AF 


3F15 


LIBF 


MCOMP 


428B 


3F18 


CALL 


VIAQ 


46B0 




CALL 


PRT 


4710 




LIBF 


SUBIN 


475A 


3F1B 


LIBF 


FADD 


47B4 


3F1E 


LIBF 


IOU 


4832 


3F21 


CALL 


IOFIX 


48CC 




CALL 


BT1BT 


48FC 




CALL 


SAVE 


4868 




CORE 




4962 


369E 



CLB, L0G60 LD XQ 
DUP FUNCTION COMPLETED 



®'/, 



JOB A 

* MAINLINE CORE LOAD 

FOR SHIFT 
1ST ALL 

SHIFT END LOG 
OCS (TYPEWRITER) 

THIS PROGRAM OUTPUTS THE SHIFT LOG 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),C0UMT(8),0FFLN(8) 

DIMENSION RANGE (8) , AHL ( 40 ) , ALL ( 40 ) , A ( 40 ) ,B (40 > , LOW ( 8 > ,G ( 16 ) , H ( 16 ) 

COMMON/ I NSKE L/ SWO, SW 1, SW2, SW3, SW4, SW5, DAY, J OBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ, IBAZZ ,G,H , IENDT , IPERD , ITCNT 
2,IP0NT 

PRINT HEADER 

CALL PTIME(TIME) 
WRITE(1,1)DAY,TIME 
WRITE(4,1)DAY,TIME 
WRITE(5,1)DAY,TIME 
1 FORMAT!//,' SHIFT END LOG 

OUTPUT SHIFT END LOG 

EXIT FROM ROUTINE 
VIAQ 



DAY' , I3,5X'TIME' ,F9.2) 



CALL 
END 
RIABLE AL 
CSWOU*) 

DAY(I*)= 
OUMTd*) 
BASE( I*) 
PERDU*> = 



LOCATIONS 

FFFF CSWK I*) = FFFE 

FFF9 JOBN! I*)=FFF8 

FFC7-FFC0 OFFLNI I* )=FFBF-FFB8 

FE77 IBASZ!I*)=FE76 

FE32 ITCNTI I*)=FE31 



CSW2! I*)=FFFD CSW3(I*) = FFFC 

VALUE! I*)=FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 

AHL(R*)=FFB6-FF68 ALL(R*)=FF66-FF18 

IBAZZ! I*)=FE75 G ( R»i< ) =FE7 2-FE54 

IPONT! I*)=FE30 CTIME(R (=0000 



CSW4! I*) = FFFB CSW5 ( 

LOW! I*)=FFD7-FFD0 SETPT! 

A(R*)=FF16-FEC8 B( 

H(R*)=FE52-FE34 IENDT! 



I*)=FFFA 
I*)=FFCF-FFC8 
R*)=FEC6-FE78 
I*)=FE33 



STATEMENT ALLOCATIONS 
1 =0005 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
PTIME VIAQ MWRT 

INTEGER CONSTANTS 

1=0002 4=0003 



IP MIOF MIOI 
5=0004 



TYPEN EBPRT 
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Continued 

CORE REQUIREMENTS FOR SHIFT 
COMMON INSKEL COMMON 464 VARIABLES 2 PROGRAM 52 

END OF COMPILATION 



SHIFT 

DUP FUNCTION COMPLETED 

// DUP 

*STORECIL M 1 SHIFT SHIFT RSTAR 

*CCEND 



CLB, 


BUILD 


SHIFT 




CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3FOC 


0018 


*IST 


TABLE 


3F24 


0036 


*PNT 


TABLE 


3F5A 


0008 


MAIN 


SHIFT 


3F7B 




PNT 


SHIFT 


3F5C 




PNT 


RSTAR 


3F60 




LIBF 


EBPRT 


3F98 


3F0C 


CALL 


PTIME 


4044 




LIBF 


MWRT 


41FE 


3F0F 


LIBF 


MIOI 


42B4 


3F12 


LIBF 


MIOF 


42AF 


3F15 


LIBF 


MCOMP 


428B 


3F18 


CALL 


VIAQ 


46B0 




CALL 


PRT 


4710 




LIBF 


SU6IN 


475A 


3F1B 


LIBF 


FADD 


47B4 


3F1E 


LIBF 


IOU 


4832 


3F21 


CALL 


IOFIX 


48CC 




CALL 


BT1BT 


48FC 




CALL 


SAVE 


4868 




CORE 




4962 


369E 



CLB, SHIFT LD XO 
DUP FUNCTION COMPLETED 



® 



// JOB A 

// * MAINLINE CORE LOAD 

// FOR WEEK 

*LIST ALL 

** MONDAY MORNING LOG 

#IOCS(TYPEWRITER) 

C 

C THIS PROGRAM OUTPUTS THE WEEKLY MONDAY MORNING LOG 

C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE (15) , SETPT ( 8 ) , COUMT ( 8 > , OFFLN ( 8 ) 

DIMENSION RANGE (8) , AHL < 40 ) , ALL ( 40 ) , A ( 40 ) , B(40) , LOW ( 8 ) ,G ( 16 ) , HI 16 ) 

COMMON/ I NSKE L / SWO, S W 1, SW 2, SW3,SW4,SW5,D A Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, I BASZ , IBAZZ ,G ,H , I ENDT , I PERD , I TCNT 
2,IP0NT 
C 

C PRINT HEADER 
C 

CALL PTIME(TIME) 

WRITE(4,1)DAY,TIME 

WRITEI5, 1)DAY,TIME 
1 FORMAT!//, • MONDAY MORNING REPORT DA Y ' , I J , 5 X ' T IME ■ , F9 . 2 ) 
C 

C OUTPUT MONDAY MORNING REPORT 
C 
C 

C EXIT FROM PROGRAM 
C 

CALL VIAQ 

END 
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Continued 

VARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSWK I*) = FFFE CSW2 ( I* ) =FFFD CSW3 ( I* ) = FFFC CSW4 ( I* )=FFFB CSW5 ( I * ) =FFF A 

DAY(I*)=FFF9 JOBN ( I * ) =FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 LOW ( I* ) =FFD7-FFDO SETPT ( I* ) =FFCF-FFC8 

COUMT(I*)=FFC7-FFCO OFFLN( I* ) =FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL (R* )=FF66-FF18 A ( R* ) =FF16-FEC8 B < R* ) =FEC6-FE78 

IBASE(I*)=FE77 I BASZ ( I*) =FE76 IBAZZt I* ) =FE75 G ( R* ) =FE72-FE54 HI R* ) =FE52-FE34 IENOT ( I* ) =FE33 
IPERD(I*)=FE32 I TCNTI I* ) =FE31 IPONT ( I* ) =FE30 CTIME(R )=0000 

STATEMENT ALLOCATIONS 
1 =0004 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
PTIME VIAQ MWRT MCOMP MIOF MIOI TYPEN EBPRT 

INTEGER CONSTANTS 

4=0002 5=0003 

CORE REQUIREMENTS FOR WEEK 
COMMON INSKEL COMMON 464 VARIABLES 2 PROGRAM 48 

END OF COMPILATION 



WEEK 

DUP FUNCTION COMPLETED 

// DUP 

*STORECIL M 1 WEEK WEEK RSTAR 

*CCEND 

CLB, BUILD WEEK 

CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0018 


*IST 


TABLE 


3F24 


0036 


*PNT 


TABLE 


3F5A 


0008 


MAIN 


WEEK 


3F7F 




PNT 


WEEK 


3F5C 




PNT 


RSTAR 


3F60 




LIBF 


EBPRT 


3F94 


3F0C 


CALL 


PTIME 


4040 




LIBF 


MWRT 


41FA 


3F0F 


LIBF 


MIOI 


42B0 


3F12 


LIBF 


MIOF 


42AB 


3F15 


LIBF 


MCOMP 


4287 


3F18 


CALL 


.VIAQ 


46AC 




CALL 


PRT 


470C 




LIBF 


SUBIN 


4756 


3F1B 


LIBF 


FADD 


47B0 


3F1E 


LIBF 


IOU 


482E 


3F21 


CALL 


IOFIX 


48C8 




CALL 


BT1BT 


48F8 




CALL 


SAVE 


4864 




CORE 




495E 


36A2 



CLB, WEEK LD XQ 
DUP FUNCTION COMPLETED 



®,l JOB 
// * MAINLINE 



A 
JE CORE LOAD 
// FOR TREND 
*LIST ALL 
#* TREND LOG 
*IOCS(TYPEWRITER) 
C 

C THIS IS THE TREND LOG CORE LOAD. IT READS THE VALUE THAT THE 
C OPERATOR HAS ASKED. IT IS QUEUED PERIODICALLY BY THE TCONT 
C SUBROUTINE WITH THE PERIOD SPECIFIED BY THE OPERATOR. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE! 15) , SETPT < 8 > ,COUMT ( 8 > ,OFFLN < 8 > 
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DIMENSION RANGE (8) , AHL ( 40 ) , ALL < 40 ) , A! 40 ) ,B ( 40 > ,LOW ( 8 ) ,G < 16 ) , H< 16 ) 

COMMON/ I NSKEL/ SWO, SW 1, SW 2, SW3,SW4,SW5, DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, I BASZ , IBA ZZ ,G ,H , I ENDT , I PE RD , I TCNT 
2, 1 PONT 

CALL AIP!11000,INV,IP0NT) 

1 CALL AIP(0,ITEST) 
GO TO ( 1,2) ,ITEST 

2 CONTINUE 
IF(4096-IP0NT)4,4,100 

4 K=IPONT-4096+1 
J = 9-K 

INV=(INV-LOW( J) )* 100. /RANGE (J) 
WRITE(1,5)K,INV 

5 FORMAT!' TREND LOOP'12,' VALUE' 16) 
CALL VIAQ 

100 K=IP0NT+1 
J=41-K 

VAL=A( J)*INV+B( J) 
WRITE! 1, 101)K,VAL 

101 FORMAT!' TREND OP-GUIDE ' I 3, ' VALUE ' F10.2 ) 
CALL VIAQ 

END 
VARIABLE ALLOCATIONS 

CSWO! I*)=FFFF CSW1(I*)=FFFE CSW2 ( I* ) = -FFD CSW3 ( I * ) =F FF C CS W4 ( I * ) = FF FB CSW5 ( I* ) =FFF A 

DAY(I*)=FFF9 JOBN.! I * ) = FFF8 VALUE ( I* )=F FF7-FFE9 RANGE ( R* ) =F F E6-FFD8 LOW ( I * ) = FFD7-FFD0 SETPT ( I * ) =FFC F-FFCE 

COUMT! I*)=FFC7-FFC0 OFFLN ( I * ) =FFBF-FFB8 AHL ( R* ) = FFB6-FF68 ALL ( R* ) =FF66-FF 1 8 A ( R* ) = FF 16-FEC8 B ( R* ) =F EC6-FE 7£ 

IBASE(I*)=FE77 IBASZ ( I * ) = FE76 I3AZZ ( I* ) = -E75 G < R* ) =FE72-FE54 H ( R* ) =FE52-FE34 I ENDT ( I* ) =FE33 

IPERDU*)=FE32 I TCNT ( I * ) =FE31 I PONT ( I* ) = FE30 CVAL ( R )=0000 INVII ) = 0002 ITESTII )=0003 

K(I )=0004 J(I )=0005 

STATEMENT ALLOCATIONS 
5 =0010 101 =001F 1 =0036 2 =0040 4 =0046 100 =0074 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
AIP VIAO FADDX FMPY FMPYX FDIVX FSTO I F IX FLOAT COMGO MWRT MCOMP MIOF MIOI SUBSC 
TYPEN EBPRT 

REAL CONSTANTS 

.100000E 03=0008 

INTEGER CONSTANTS 
11000=000A 0=000B 4096=O0OC l=O00D 9=000E 41=000F 

CORE REQUIREMENTS FOR TREND 
COMMON INSKEL COMMON 464 VARIABLES 8 PROGRAM 144 

END OF COMPILATION 

TREND 

DUP FUNCTION COMPLETED 

*DELET M TREND DUM 

TREND 

D25 NAME NOT IN L/F 

fSTORECIL M 1 TREND TREND RSTAR 

*CCEND 

CLB, BUILD TREND 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0018 


*IST 


TABLE 


3F24 


0036 


*PNT 


TABLE 


3F5A 


0008 


MAIN 


TREND 


3F93 




PMT 


TREND 


3F5C 




PNT 


RSTAR 


3F60 




LIBF 


EBPRT 


3FFA 


3F0C 


CALL 


AIP 


409A 




LIBF 


MWRT 


4250 


3F0F 


LIBF 


MIOI 


4306 


3F12 


LIBF 


MCOMP 


42DD 


3F15 


CALL 


VIAO 


4702 




LIBF 


FADDX 


477C 


3F18 


LIBF 


MIOF 


4301 


3F1B 


CALL 


PRT 


4800 
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LIBF AIPTN 


484A 


3F1E 


LIBF IOU 


48CC 


3F21 


CALL IOFIX 


4966 




CALL BT1BT 


4996 




CALL SAVE 


4902 




CORE 


49FC 


3604 



CLB, TREND LD XQ 
DUP FUNCTION COMPLETED 



®'/, 



JOB A 
* INTERRUPT CORE LOAD 
// FOR COGLP 
*LIST ALL 

** CHANGE OP-GUIDE LIMITS PROGRAM 
*IOCS(TYPEWRITER) 
* IOCS (DISK) 
C 

C THIS CORE LOAD CHANGES THE LIMITS ON OPERATOR GUIDE POINTS AT 
C OPERATOR REQUEST. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 
INTEGER VALUE (15) , SETPT ( 8 ) ,COUMT ( 8 ) ,0FFLN(8) 
DIMENSION INVAH16) 

DIMENSION RANGE (8) , AHL ( 40 ) , ALL < 40 ) , A< 40 ) ,B (40 ) ,L0W<8) ,G(16),H< 16) 
COMMON/ I NSKEL/ SWO, SW1 , SW2, SW3, SW4, SW5 , DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ, IBAZZ,G ,H, IENDT , IPERD, ITCNT 
2,IP0NT 
DEFINE FILE 3 ( 3, 320, U, I I ) 
WRITE! 1,555) 
555 FORMAT!//) 

CALL CONVRI INVAL) 
WRITE (1,302)INVAL 
302 F0RMAT(8I5) 

IPT=INVAL(1)*10+INVAL<9> 

AA=INVAL(2)*10000.+INVAL!3)*1000.+INVAL< 41*1 OO.+INVAH 5 )*10.+ INVAL 
1 (6)+INVAL(7)*.l+INVAL(8)*.01 

BB= INVAL ( 10)»!<10000. + INVAL( 1 1 ) *1 000. + INVAL ( 12 ) *100. + INVAL ( 13 )* 10. + 1 
1NVAL(14)+INVAL(15)*.1+INVAL(16)*.01 
IF(IPT)300, 300,1 

1 K=41-IPT 

IF <K) 300, 300, 2 

2 AHL(K)=AA 
ALL(K)=BB 
WRITE(3'3)AHL,ALL 
CALL PTIME(TIME) 

WRITE (1,3) IPT,AA,BB,DAY,TIME 

3 FORMAT!' OP-GUIDE PT'I3,« HIGH L IM IT « F10.2 , ' LOW L IMIT • F 10.2, ' DAY 
l'I2,' TIME'F7.2) 

CALL INTEX 

300 WRITE (1,301) 

301 FORMAT) > INVALID ENTRY OP-REQUEST Pl<) 
CALL INTEX 

END 
VARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSW1(I*)=FFFE CSW2 ( I* ) =FFFD CSW3 ( I* ) =FFFC CSW4( I* ) =FFFB CSW5! I* ) =FFFA 
DAY(I*)=FFF9 JOBN ( I* )=FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE (R* )=FFE6-FFD8 LOW ( I*) =FFD7-FFD0 SETPT < I*) =FFCF-FFC8 
COUMTI I*)=FFC7-FFC0 OFFLN ( I* ) =FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL ( R* > =FF66-FF18 A ( R* ) =FF 16-FEC8 B( R* )=FEC6-FE78 
IBASE(I*)=FE77 IBASZ ( I * ) = FE76 IBAZZf I* ) =FE75 G <R* ) = FE72-FE54 H ( R* ) = FE52-FE34 IENDT ( I*) =FE33 

IPERD( I>K)=FE32 ITCNT ( I*) =FE31 I PONT ( I* ) =FE30 AA(R )=0006 BB ( R ) = 0008 CTIME(R )=000A 

INVALd )=0027-0018 Mil )=0028 IPT(I )=0029 K(I ) = 002A 

STATEMENT ALLOCATIONS 
555 =004A 302 =004D 3 =0050 301 =0071 1 =0132 2 =013C 300 =0168 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
CONVR PTIME INTEX FADD FMPY FLD FSTO FSTOX FLOAT MWRT MCOMP MIOAI MIOF MIOI SUBSC 
MDWRT MDCOM MDAF TYPEN EBPRT 

REAL CONSTANTS 

.100000E 05=003A .100000E 04=003C .100000E 03=003E .100000E 02=0040 .100000E 00=0042 . 100000E-01=0044 

INTEGER CONSTANTS 

1=0046 10=0047 41=0048 3=0049 
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CORE REQUIREMENTS FOR COGLP 
COMMON INSKEL COMMON 464 VARIABLES 58 PROGRAM 308 



END OF COMPILATION 



COGLP 

DUP FUNCTION COMPLETED 

*OELET I COGLP IDUM 9999 

COGLP 

D25 NAME NOT IN L/F 

*STORECIL I 1 COGLP COGLP COGLP 1100 

*FILES(3,FILE3 f 1) 

*CCEND 

CLB, BUILD COGLP 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0027 


*PMT 


TABLE 


3F34 


0004 


*DFT 


TABLE 


3F38 


0006 


MAIN 


COGLP 


3FB9 




PNT 


COGLP 


3F36 




LIBF 


EBPRT 


40A6 


3F0C 


LIBF 


MWRT 


42D0 


3F0F 


LIBF 


MCOMP 


435D 


3F12 


CALL 


CONVR 


4788 




LIBF 


MIOAI 


43A7 


3F15 


LIBF 


FADD 


47DC 


3F18 


LIBF 


MDWRT 


49 AD 


3F1B 


LIBF 


MDAF 


4861 


3F1E 


LIBF 


MDCOM 


4924 


3F21 


CALL 


PTIME 


4BDA 




LIBF 


MIOI 


4386 


3F24 


LIBF 


MIOF 


4381 


3F27 


CALL 


PRT 


4C0A 




LIBF 


IOU 


4C54 


3F2A 


CALL 


IOFIX 


4CEE 




CALL 


BT1BT 


4D1E 




CALL 


SAVE 


4C8A 




LIBF 


SUBIN 


4D82 


3F2D 


CALL 


GETVL 


4DE6 




LIBF 


FADDX 


47D6 


3F30 


CALL 


BT2BT 


4E82 




CORE 




4EA0 


315F 



CLB, COGLP LD XQ 
DUP FUNCTION COMPLETED 



® 



// JOB A 

// * INTERRUPT CORE LOAD 

// FOR CCLSP 

*LIST ALL 

** CHANGE OF CLOSED LOOP CONTROL SET POINT 

♦IOCS(TYPEWRITER) 

*IOCS(DISK) 

C 

C THIS CORE LOAD CHANGES THE SET POINT VALUE FOR A SET POINT 

C STATION UPON OPERATOR REQUEST. 

C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),COUMT(8),OFFLN(8) 

DIMENSION INVALQ6) 

DIMENSION RANGE(8),AHL(40) , ALL ( 40 ) , A ( 40 ) ,B(40) , LOW ( 8 ) ,.G ( .16 ) ,H ( 16 ) 

COMMON/ I NSKE L/ SWO, SW1, SW2,SW3,SW4,SW5, DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ, I BAZ2 ,G ,H , IENDT , I PERD, ITCNT 
2, IPONT 

DEFINE FILE 3(3, 320, U, II ) 

WRITE(1,555) 
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555 FORMAT)//) 

CALL CONVR(INVAL) 

WRITE(1,100)INVAL 
100 FORMATI8I5) 

CALL PTIME(TIME) 

I=INVAL(1) 

J=INVAL(7)*10+INVAL(8) 

IF ( I ) 300, 300,1 

1 K = 9-I 
IF(K)300,300,2 

2 IF(J)300,300,3 

3 SETPT(K)=J*RANGE(K)/100.+LOW(K) 
WRITE(3«2)SETPT 
WRITE(1,4)I,J,DAY,TIME 

4 FORMAT!' LOOP'13,' NEW SET P0INT'I4,' DAY'I2,' TIME'F7.2) 
CALL INTEX 

300 WRITEt 1,301) 

301 FORMATf" INVALID ENTRY OP-REQUEST P2<) 
CALL INTEX 

END 
VARIABLE ALLOCATIONS 

CSWOf I*)=FFFF CSWK I*> = FFFE CSW2 ( I* ) =FFFD CSW3 ( I*) =FFFC CSW41 I* )=FFFB CSW5 < I *) =FFF A 

DAY( I»!<)=FFF9 JOBN ( I *) =FFF8 VALUE < I* ) =FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 LOW ( I * ) =FFD7-FFD0 SETPT ( I* ) =FFCF-FFCf 

C0UMT(I*)=FFC7-FFC0 OFFLN( I* ) =FFBF-FFB8 AHL < R* ) =FFB6-FF68 ALL (R* ) =FF66-FF 18 A < R* ) =FF16-FEC8 B ( R* ) =FEC6-FE7£ 

IBASE(I*)=FE77 I BASZ ( I *) =FE76 I BAZZ ( I* ) =FE75 G ( R* ) =FE72-FE54 H ( R* ) =FE52-FE34 IENDT ( I* ) = FE33 

IPERD) I*)=FE32 ITCNT ( 1* ) = FE31 IPONT ( I* ) =FE30 CTIMEIR )=0006 INVALII ) = 0019-000A IKI )=001A 

1(1 )=001B J(I )=001C K(I )=001D 

STATEMENT ALLOCATIONS 
555 =0029 100 =002C 4 =-002F 301 =0047 1 =007F 2 =0089 3 =008D 300 =OOBF 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
CONVR PTIME INTEX FADD FMPYX FDIV FSTO IF IX FLOAT ISTOX MWRT MCOMP MIOAI MIOF MIOI 
SUBSC MDWRT MDCOM MDAI TYPEN EBPRT 

REAL CONSTANTS 

.100000E 03=0022 

INTEGER CONSTANTS 

1=0024 10=0025 9=0026 3=0027 2=0028 

CORE REQUIREMENTS FOR CCLSP 
COMMON INSKEL COMMON 464 VARIABLES 34 PROGRAM 164 

END OF COMPILATION 

CCLSP 

DUP FUNCTION COMPLETED 

*DELET I CCLSP IDUM 9999 

CCLSP 

D25 NAME NOT IN L/F 

*STORECIL I 1 CCLSP CCLSP CCLSP 1101 

*FILES(3 t FILE3,l) 

*CCEND 

CLB, BUILD CCLSP 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0027 


*PNT 


TABLE 


3F34 


0004 


#DFT 


TABLE 


3F38 


0006 


MAIN 


CCLSP 


3F8F 




PNT 


CCLSP 


3F36 




LIBF 


EBPRT 


3FFE 


3F0C 


LIBF 


MW'RT 


4228 


3F0F 


LIBF 


MCOMP 


42B5 


3F12 


CALL 


CONVR 


46E0 




LIBF 


MIOAI 


42FF 


3F15 


CALL 


PTIME 


4720 




LIBF 


FADD 


4770 


3F18 


LIBF 


MDWRT 


4941 


3F1B 


LIBF 


MDAI 


4802 


3F1E 


LIBF 


MDCOM 


48B8 


3F21 
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LIBF MIOI 


42DE 


3F24 


LIBF MIOF 


42D9 


3F27 


CALL PRT 


4B62 




LIBF IOU 


ABAC 


3F2A 



CALL IOFIX 4C46 

CALL BT1BT 4C76 

CALL SAVE 4BE2 

LIBF SUBIN 4CDA 3F2D 

CALL GETVL 4D3E 

LIBF FADDX 476A 3F30 

CALL BT2BT 4DDA 

CORE 4DF8 3207 

CLB, CCLSP LD XO 

DUP FUNCTION COMPLETED 






li JOB A 

* INTERRUPT CORE LOAD 
FOR MGRTP 
*LIST ALL 

** MODIFY GRADE RUN TIME PROGRAM 
*IOCS(TYPEWRITER) 
*IOCS(DISK) 
C 

C THIS CORE LOAD CHANGES THE RUN TIME FOR A GRADE UPON OPERATOR 
C REQUEST. 
C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 
INTEGER VALUE(15),SETPT(8),C0UMT(8),0FFLN(8) 
DIMENSION INVALU6) 

DIMENSION RANGE!8),AHL(40),ALL!40>,A(40) ,B <40) ,LOW (8 ) ,GU6),H< 16) 
COMMON/ INSKEL/SW0,SW1,SW2,SW3,SW4,SW5, DA Y,J08N, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE,IBASZ,IBAZZ,G,H,IENDT,IPERD,ITCNT 
2, 1 PONT 
DEFINE FILE 3( 3, 320, U, 1 1 ) 
WRITE(1,555) 
555 FORMAT!//) 

CALL CONVR(INVAL) 
HRITE(1,302)INVAL 
302 F0RMAT(8I5) 

IH=INVAL!5)*10+INVAL(6) 
IM=INVAL<7)*10+INVAL<8) 
IF!24-IH)300,300,20 

20 IF(60-IM)3O0,300,21 

21 CALL CLOCK! I) 
K=IH*1000+IM*100/6 
IF(K-I)1»2,2 

1 IPER=24000-K+I 
GO TO 3 

2 IPER-K-I 

3 AA»IPER*3.6 
IF(32000.-AA)4,5,5 

4 WRITE! 1,40) 

40 FORMAT! • TOO LONG OF A RUN TIME") 
CALL INTEX 

5 IPER-AA 
IENDT-K 

WRITE«3'1)J0BN,DAY,IENDT,SW3 
TIME=(IH*100+IM)/100. 
WRITE(l,6)TIMe 

6 FORMAT! ' JOB WILL NOW TERMINATE AT'F7.2) 
CALL C0UNT(1,2,IPER) 

CALL INTEX 

300 WRITE(1,301) 

301 FORMAT!' INVALID ENTRY OP-REQUEST P3') 
CALL INTEX 

END 
VARIABLE ALLOCATIONS 

CSWOIIfi^FPF CSW1(I*) = FFFE CSW2! I* ) -FFFD CSW3 ! I*) = FFFC CSW4 ( I* >=FFFB CSW5 I I*) =FFFA 

STATEMENT ALLOCATIONS 
555 "0036 302 -0039 40 -003C 6 «004A 301 -005A 20 =0098 21 =009E 1 =OOBA 2 =00C4 3 =00CA 
4 =00D8 5 -OODE 300 -010C 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
CONVR CLOCK INTEX COUNT FSUB FMPY FDIV FLD FSTO IFIX FLOAT LDFAC MWRT MCOMP MIOAI 
MIOF MDWRT MDCOM MDI TYPEN EBPRT 
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® Con " 

V— ' REAL 



CONSTANTS 
.360000E 01=0026 



.320000E 05=0028 .100000E 03=002A 



INTEGER CONSTANTS 

1=002C 10=002D 24=002E 60=002F 1000=0030 100=0031 



6=0032 24000=0033 



3=0034 



2=0035 



CORE REQUIREMENTS FOR MGRTP 
COMMON INSKEL COMMON 



464 VARIABLES 



38 PROGRAM 



236 



END OF COMPILATION 



MGRTP 

DUP FUNCTION COMPLETED 

*ST0RECIL I 1 MGRTP MGRTP MGRTP 1102 

*FILES(3,FILE3,1> 

*CCEND 



CLB, BUILD MGRTP 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0027 


*PNT 


TABLE 


3F34 


0004 


*DFT 


TABLE 


3F38 


0006 


MAIN 


MGRTP 


3FA2 




PNT 


MGRTP 


3F36 




LIBF 


EBPRT 


404A 


3F0C 


LIBF 


MWRT 


4274 


3F0F 


LIBF 


MCOMP 


4301 


3F12 


CALL 


CONVR 


472C 




LIBF 


MIOAI 


434B 


3F15 


LIBF 


FSUB 


4774 


3F18 


LIBF 


LDFAC 


47FE 


3F1B 


LIBF 


MDWRT 


497F 


3F1E 


LIBF 


MDI 


4838 


3F21 


LIBF 


MDCOM 


48F6 


3F24 


LIBF 


MIOF 


4325 


3F27 


CALL 


PRT 


4BA0 




LIBF 


IOU 


4BEA 


3F2A 


CALL 


IOFIX 


4C84 




CALL 


BT1BT 


4CB4 




CALL 


SAVE 


4C20 




LIBF 


SU6IN 


4D18 


3F2D 


CALL 


GETVL 


4D7C 




LIBF 


FADDX 


477A 


3F30 


CALL 


BT2BT 


4E18 




CORE 




4E36 


31C9 



CLB, MGRTP LD XQ 
DUP FUNCTION COMPLETED 



®; 



/ JOB A 

/ * INTERRUPT CORE LOAD 

/ FOR CPJSP 

LIST ALL 

* CHANGE PROCESS JOB SEQUENCE 

IOCS(TYPEWRITER) 

IOCS(DISK) 

THIS CORE LOAD CHANGES THE SEQUENCE OF GRADES UPON OPERATOR 
REQUEST. 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE (15) ,SETPT(8) ,C0UMT(8) ,0FFLN(8) 

DIMENSION INVALU6) 

DIMENSION RANGE(8),AHL(40) , ALL < 40 ) , A ( 40 > ,B (40 ) ,LOW ( 8 ) ,G f 16 ) ,HQ6) 

COMMON/ I NSKEL/SW0,SW1,SW2,SW3,SW4,SW5, DA Y,J0BN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ, IBAZZ ,G ,H, IENDT , IPERD, ITCNT 
2,IP0NT 

DEFINE FILE 3(3, 320, U, II ) 

WRITE! 1,555) 
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555 FORMAT!//) 

CALL CONVR! INVAL) 
WRITE! 1, DINVAL 

1 FORMAT(8I5> 
I=INVAL!7)*10+INVAL(8) 

AA = INVAL <4)*10000.+INVAL< 5 ) *1000.+ INVAL ( 6 ) *100 . + 1 
IF(AA)4,4,22 
22 IF(32000.-AA)300.300,2 

2 IF!I)3,3,4 

3 1=100 

4 JOBN=I 

WRITE<3«1) J0BN,DAY,IENDT,SW3 

CALL PTIME(TIME) 

I=AA 

WRITE! 1,5)I,J0BN,DAY,TIME 

5 FORMAT!' NEXT J0B'I6,' QUEUE SEQUENCE ' 14 , ' DAY«I2,' 
CALL INTEX 

300 WRITE<1,301) 

301 FORMAT! ' INVALID ENTRY OP-REQUEST P4 ' ) 
CALL INTEX 

END 
VARIABLE ALLOCATIONS 

CSW0!I*)=FFFF CSWKI*)=FFFE 

DAY(I*)=FFF9 JOBN ( I* ) = FFF8 

COUMT! I*)=FFC7-FFC0 OFFLN ( I* ) =FFBF-FFB8 

IBASE(I*)=FE77 I BASZ < I * > = FE76 

IPERD(I*)=FE32 ITCNT ( I* ) = FE31 

III! )=0020 1(1 )=0021 



TIME«F7.2) 



CSW2! I*)=FFFD CSW3 ( I* ) =FFF C 
VALUE! I*)=FFF7-FFE9 RANGE <R* ) = FFE6-FFD8 
AHL!R*)=FFB6-FF68 ALL ( R* ) =FF66-FF10 
IBAZZ! I*)=FE75 G (R*)=FE72-FE54 

IPONT! I*)=FE30 AA(R )=0006 



CSW4(I*)=FFFB CSW5! 

LOW! I*)=FFD7-FFD0 SETPT! 

A<R*)=FF16-FEC8 B( 

H(R*)=FE52-FE34 IENDT! 

CTIMEIR )=0008 INVAL! 



Ii<)=FFFA 

I«)=FFCF-FFC8 

R*<)=FEC6-FE78 

I")=FE33 

I )=001F-0010 



STATEMENT ALLOCATIONS 
555 =0034 1 =0037 5 =003A 301 =0056 22 =00AC 2 =00B3 3 =00B7 4 =00BB 300 =00E1 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
CONVR PTIME INTEX FADD FSUB FMPY FLD FSTO IF IX FLOAT LDFAC MWRT MCOMP MIOAI MIOF 
MIOI MDWRT MDCOM MDI TYPEN EBPRT 

REAL CONSTANTS 

.100000E 05=0028 .100000E 04-002A .100000E 03-002C .320000E 05=002E 

INTEGER CONSTANTS 

1=0030 10=0031 100=0032 3=0033 

CORE REQUIREMENTS FOR CPJSP 
COMMON INSKEL COMMON 464 VARIABLES 40 PROGRAM 192 

END OF COMPILATION 



CPJSP 

DUP FUNCTION COMPLETED 



I 



CPJSP IDUM 



9999 



*DELET 

CPJSP 

D25 NAME NOT IN L/F 

*STORECIL 1 1 CPJSP CPJSP CPJSP 1103 

*FILES(3,FILE3,1) 

*CCEND 



CLB, BUILD CPJSP 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


002D 


*PNT 


TABLE 


3F3A 


0004 


*DFT 


TABLE 


3F3E 


0006 


MAIN 


CPJSP 


3FA4 




PNT 


CPJSP 


3F3C 




LIBF 


EBPRT 


4026 


3F0C 


LIBF 


MWRT 


4250 


3F0F 


LIBF 


MCOMP 


42 DO 


3F12 


CALL 


CONVR 


4708 




LIBF 


MIOAI 


4327 


3F15 


LIBF 


FADD 


475C 


3F18 


LIBF 


LDFAC 


47DA 


3F1B 


LIBF 


FSUB 


4750 


3F1E 
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LIBF 


MOWRT 


495B 


3F21 


LIBF 


MDI 


4814 


3F24 


LIBF 


MDCOM 


48D2 


3F27 


CALL 


PTIME 


4B88 




LIBF 


MIOI 


4306 


3F2A 


LIBF 


MIOF 


4301 


3F2D 


CALL 


PRT 


4BB8 




LIBF 


IOU 


4C02 


3F30 


CALL 


IOFIX 


4C9C 




CALL 


BT1BT 


4CCC 




CALL 


SAVE 


4C38 




LIBF 


SUBIN 


4030 


3F33 


CALL 


GETVL 


4D94 




LIBF 


FADDX 


4756 


3F36 


CALL 


BT2BT 


4E30 




CORE 




4E4E 


31B1 



CLB, CPJSP LD XQ 
DUP FUNCTION COMPLETED 



® 



// JOB A 

// * INTERRUPT CORE LOAD 

// FOR STRND 

*LIST ALL 

** START TREND LOG ROUTINE 

*IOCS(TYPEWRITER> 

C 

C THIS CORE LOAD INITIATES A TREND LOG OF THE POINT SPECIFIED BY 

C THE OPERATOR. 

C 

INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE!15),SETPT(8),COUMT(8>,OFFLN"(8) 

DIMENSION INVAL(16) 

DIMENSION RANGE (8) , AHL ( 40 ) , ALL (40 ) , A( 40) ,B (40 ) ,LOW ( 8 ) ,G ( 16 ) ,H( 16 ) 

C0MM0N/INSKEL/SW0,SW1,SW2,SW3,SW4,SW5,DAY,J0BN,VALUE, RANGE , LOW , SET 
1PT,C0UMT,0FFLN,AHL,ALL, A, B, I BASE , IBASZ, IBAZZ ,G ,H, IENDT , IPERD, ITCNT 
2,IP0NT 

WRITE(1,555) 
555 FORMAT!//) 

CALL CONVR(INVAL) 

WRITE! 1,1) INVAL 

1 FORMAT(8I5) 
II=INVAL(6)*100+INVAL<7)*10+INVAL(8) 

J J= INVAL! 14)* 100+ INVAL! 15 )*10+ INVAL ( 16 ) 
IF( INVAL! 1) )300,2,100 

2 I=INVAL(2)*10+INVAL(3) 
IF { I 1300,300,3 

3 J=I-1 
IF(40-J)300,300,4 

4 IPONT=J 

WRITEf 1,5)1,11 ,JJ 

5 FORMAT (' TREND LOG OP-GUIDE P0INT'I3,' PERIOD'15, 1 C0UNT'I5) 
GO TO 200 

100 IF(INVAL(1)-1)300,101,300 

101 IF! INVALI3) 1300,300,102 

102 IF(INVAL(3)-8)103,103,300 

103 IPONT =4095+INVAL(3) 
WRITE! 1,104) INVAL! 3) ,11 ,JJ 

104 FORMAT!' TREND LOG LOOP'12,' PERIOD'16,' COUNT'16) 
200 IPERD=II 

ITCNT=JJ 

CALL COUNT(2,3,2) 

CALL INTEX 

300 WRITE! 1,301) 

301 FORMAT! ' INVALID ENTRY OP-REQUEST P5 ' ) 
CALL INTEX 

END 
VARIABLE ALLOCATIONS 

CSWO! I*)=FFFF CSW1 ( I* ) =FFFE CSW2 ( If ) = FFFD CSW3 ( I* ) =FFFC CSW4! I* ) = FF FB CSW5 ( I* ) =FFFA' 
DAY!I*)=FFF9 JOBN! I * ) = FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE < R* ) =FFE6-FFD8 LOW ( I* ) = FFD7-FFD0 SETPT ( I* ) =FFCF-FFC8 
COUMT( I*)=FFC7-FFC0 OFFLN ( I* ) =FFBF-FFB8 AHL ( R* > =FFB6-FF68 ALL ( R* ) =FF66-FF18 A ( R* ) = FF 16-FEC8 B ( R* ) =FEC6-FE78 
IBASE! I*)=FE77 I BASZ ( I * ) = FE76 IBAZZ ( I* ) =FE75 G (R* ) =FE72-FE54 H( R* ) = FE52-FE34 IENDT ( I * ) =FE33 

IPERD( I*)=FE32 ITCNT ( I * ) =FE31 I PONT ( I* ) = FE30 INVALII (=0011-0002 IKI ) = 0012 JJ ( I )=0013 

STATEMENT ALLOCATIONS 
555 =0026 1 =0029 5 =002C 104 =0049 301 =0061 2 =00B7 3 =00C8 4 =00D4 100 =00E4 101 =OOEC 
102 =00F2 103 =OOFA 200 =010E 300 =OUD 
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FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
CONVR COUNT INTEX MWRT MCOMP MIOAI MIOIX MIOI TYPEN EBPRT 

INTEGER CONSTANTS 

1=001E 100=001F 10=0020 40=0021 8=0022 4095=0023 2=0024 

CORE REQUIREMENTS FOR STRND 
COMMON INSKEL COMMON 464 VARIABLES 30 PROGRAM 262 

END OF COMPILATION 



3=0025 



STRND 

DUP FUNCTION COMPLETED 



#DELET I STRND IDUM 


9999 


STRND 




D25 NAME NOT IN L/F 




*STORECIL I 1 STRND STRND 


1104 


*CCEND 





CLB, BUILD STRND 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FI0 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


001B 


*PNT 


TABLE 


3F28 


0004 


MAIM 


STRND 


3F9D 




PNT 


STRND 


3F2A 




LIBF 


EBPRT 


4050 


3F0C 


LIBF 


MWRT 


427A 


3F0F 


LIBF 


MCOMP 


4307 


3F12 


CALL 


CONVR 


4732 




LIBF 


MIOAI 


4351 


3F15 


LIBF 


MIOI 


4330 


3F18 


LIBF 


MIOIX 


433C 


3F1B 


CALL 


PRT 


4766 




LIBF 


IOU 


47B0 


3F1E 


CALL 


IOFIX 


484A 




CALL 


BT1BT 


487A 




CALL 


SAVE 


47E6 




LIBF 


SUBIN 


48DE 


3F21 


CALL 


GETVL 


4942 




LIBF 


FADDX 


49F8 


3F24 


CORE 




4A7E 


3581 



CLB, STRND LD XQ 
DUP FUNCTION COMPLETED 



®/ 



/ JOB A 

/ FOR AIMON 

LIST ALL 

* ANALOG INPUT LOG ROUTINE 

IOCS(TYPEWRITER) 

THIS CORE LOAD LOGS ALL INFORMATION ABOUT ANY ANALOG INPUT POINT 
ON THE SYSTEM UPON OPERATOR REQUEST. 



POINTS ARE SELECTED AS FOLLOWS — 
OP-GUIDE POINTS - D1=0, D7-8=01-40 
CLOSED-LOOP POINTS - Dl = l, D7-8=01-08 

INTEGER SWO, SW1 , SW2, SW3 ,SW4, SW5, DAY 

INTEGER VALUE ( 15) ,SETPT(8) f C0UMT(8) ,0FFLN(8) 

DIMENSION INVALI16) 

DIMENSION RANGE (8) , AHL ( 40 ) , ALL ( 40 ) , A( 40 ) , B ( 40 ) , LOW ( 8 ) , G ( 16 ) , H ( 16 ) 

COMMON/ I NSKE L/ SWO, SW 1,SW2,SW3,SW4,SW5, DAY, J OBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B, I BASE , I8ASZ , IBAZZ , G ,H , IENDT, IPERD, ITCNT 
2,IP0NT 
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WRITE<1,555) 
555 FORMAT)//) 
C 

C READ DATA ENTRY DIALS 
C 

CALL CONVR(INVAL) 

WRITE(1,900)INVAL 
900 FORMAT (815) 
C 

C CONVERT POINT DESIGNATION, D7-8 
C 

1X1 => INVAL(7)*10 + INVAL(8) 
C 

C MUST BE GREATER THAN 
C 

IF(IX1)800,800,10 
C 

C CHECK Dl 
C 

10 IF(INVAL(1)-1)20,500,800 
C 

C CHECK INPUT OP-GUIDE POINT DESIGNATION 
C 

20 IF( 1X1-40)30,30,800 
C 

C READ OP-GUIDE POINT 
C 

30 1X2 = 1X1-1 

CALL AIP (11000, VALUE(l) ,1X2) 
35 CALL AIP (0,1X2) 

GO TO (35,40), 1X2 
C 
C CONVERT VALUE SELECTED 

C 

40 1X2 = 41-1X1 

VAL = A( IX2)*VALUE(1) + B(IX2) 
C 

C PRINT TIME AND HEADER 
C 

CALL PTIME(TIME) 
WRITE (1,920)DAY,TIME 
920 FORMAT (/' DAY»I2,» TIME'F7.2) 

WRITE (1,930) 
930 FORMAT (' OP-GUIDE POINT VALUE HIGH LIMIT LOW LIMIT FAC 
-TOR A FACTOR B' ) 
WRITE (1,940)IX1,VAL,AHL(IX2),ALL( 1X2 ) , A ( 1X2 ) ,B ( 1X2 ) 
CALL INTEX 
940 FORMAT (7X , I 2,4X ,F10.2, 1X,F10.2, 2X, F10.2 ,5X,E 13.6 ,3X ,E13.6 ) 
C 

C CLOSED-LOOP POINT, CHECK LIMIT ON DESIGNATION 
C 

500 IF(IX1-8)510,510,800 
510 1X2 = 1X1+4095 

CALL AIP (01000, VALUE(l), 1X2) 
520 CALL AIP (0,1X2) 

GO TO (520, 530), 1X2 
C 

C CONVERT SETPT FOR OUTPUT 
C 

530 1X2 = 9-1X1 

VALUE(l) = (VALUE(1)-L0W(IX2))*100./RANGE( 1X2) 
IAL = <SETPT(IX2)-LOW(IX2> )*100. /RANGE (1X2) 
C 

C PRINT DAY, TIME, AND HEADER 
C 

CALL PTIME(TIME) 
WRITE (1,920)DAY,TIME 
WRITE (1,950) 
950 FORMAT (• CLOSED-LOOP POINT VALUE SETPT OFFLN 
- RANGE LOW') 

C 

C WRITE VALUES 
C 

WRITE ( 1,960) IX1,VALUE(1) , IAL, OFFLN ( 1X2) , RANGE) IX2),L0W( 1X2) 
CALL INTEX 
960 FORMAT ( 8X , I 2,7X, 18, 5X , I 6, 10X, I 2, 7X, F10. 2,4X, 16 ) 
800 WRITE (1,810) 

CALL INTEX 
810 FORMAT* • INVALID ENTRY OP-REQUEST P6') 
END 
VARIABLE ALLOCATIONS 

CSWO(I*)»FFFF CSW1(I*)=FFFE CSW2 ( I* ) =FFFD CSW3 ( I* ) =FFFC CSW4I I*) = FFFB CSW5I I* ) =FFFA 
DAY(I*)=FFF9 JOBN ( I* )=FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* )=FFE6-FFD8 LOW ( I* )=FFD7-FFD0 SETPT ( I* ) =FFCF-FFC8 
C0UMT(I*)=FFC7-FFC0 OFFLN ( I*) =FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL ( R* ) =FF66-FF18 A ( R* ) = FF 16-FEC8 B( R* )=FEC6-FE78 
IBASE(I*)=FE77 I BASZ ( I* )=FE76 IBAZZf I* ) =FE75 G (R*)=FE72-FE54 H ( R* ) = FE52-FE34 I ENDT ( I * ) =FE33 
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STATEMENT ALLOCATIONS 



555 =0028 900 =002B 
30 =00E3 35 =00F5 


920 =002E 930 
40 =00FF 500 


= 0039 
= 013E 


940 =0062 950 
510 =0144 520 


= 006F 
= 0156 


96 
530 


=0097 810 =00A4 
=0160 800 =01BB 


FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 














CALLED SUBPROGRAMS 
CONVR AIP PTIME 
MIOAI MIOFX MIOIX 


INTEX FADDX 
MIOF MIDI 


FMPY 
SUBSC 


FDIVX FLDX 
TYPEN EBPRT 


FSTO 


IF IX 


FLOAT COM GO 


REAL CONSTANTS 

.100000E 03=001C 















=00D3 20 



ISTOX 



INTEGER CONSTANTS 

1=001E 10=001F 40=0020 11000=0021 0=0022 41=0023 8=0024 4095=0025 1000=0026 

CORE: REQUIREMENTS FOR AIMON 
COMMON INSKEL COMMON 464 VARIABLES 28 PROGRAM 422 

END OF COMPILATION 

AIMON 

DUP FUNCTION COMPLETED 

*DELET I AIMON IDUM 9999 

AIMON 

D25 NAME NOT IN L/F 

*STORECIL I 1 AIMON AIMON 1105 

*CCEND 

CLB, BUILD AIMON 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0027 


*PNT 


TABLE 


3F34 


0004 


MAIN 


AIMON 


3FEC 




PNT 


AIMON 


3F36 




LIBF 


EBPRT 


40FA 


3F0C 


LIBF 


MWRT 


4324 


3F0F 


LIBF 


MCOMP 


43B1 


3F12 


CALL 


CONVR 


47DC 




LIBF 


MIOAI 


43FB 


3F15 


CALL 


AIP 


4810 




LIBF 


FADDX 


4856 


3F18 


CALL 


PTIME 


48E6 




LIBF 


MIOI 


43DA 


3F1B 


LIBF 


MIOF 


43D5 


3F1E 


LIBF 


MIOFX 


43E1 


3F21 


LIBF 


MIOIX 


43E6 


3F24 


CALL 


PRT 


4916 




LIBF 


IOU 


4960 


3F27 


CALL 


IOFIX 


49FA 




CALL 


BT1BT 


4A2A 




CALL 


SAVE 


4996 




LIBF 


SUBIN 


4A8E 


3F2A 


CALL 


GETVL 


4AF2 




LIBF 


AIPTN 


4B8E 


3F2D 


LIBF 


FADD 


485C 


3F30 


CORE 




4C12 


33ED 



CLB, AIMON LD XQ 
DUP FUNCTION COMPLETED 
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// JOB 


A 
































// DUP 


































*OUMPLET 
LET 


































PACK 1 


LABEL 


































OOOOO 


































.DCOM 


0010 


0000 


.MBT 


0020 


0010 


.SKSB 


0020 


0030 


.SUP 


OOBO 


0050 


.CLB 


OOAO 


0100 


.DUP 


0440 


01A0 


.ASM 


0300 


05E0 


.FOR 


0680 


08E0 


• SIM 


05F0 


0F60 


.LET 


0080 


1550 


IAND 


0002 


15D0 


CLEAR 


0009 


15D2 


CLOCK 


0002 


15DB 


COUNT 


0004 


15DD 


DMP 


0017 


15E1 


DMPHX 






DMPDC 






DMPS 


0010 


15F8 


DMPST 






DPART 


0002 


1608 


ENDTS 


0002 


160A 


IEOR 


0002 


160C 


LD 


0002 


160E 


LEVEL 


0004 


1610 


MASK 


0003 


1614 


OPMON 


0002 


1617 


IOR 


0002 


1619 


QIFON 


OOOA 


161B 


QUEUE 


OOOC 


1625 


RESMK 


0004 


1631 


SAVMK 


0003 


1635 


SETCL 


0003 


1638 


TIMER 


0006 


163B 


UNMK 


0005 


1641 


UNO. 


0005 


1646 


VIAQ 


0007 


164B 


CONHX 


0006 


1652 


TRPRT 


0007 


1658 


FLIP 


0007 


165F 


EADD 


OOOB 


1666 


ESUB 






EADDX 






ESUBX 






ESBR 






ESBRX 






EATN 


OOOD 


1671 


EATAN 






EAVL 


0003 


167E 


EABS 






EAXB 


0006 


1681 


EAXBX 






EAXI 


0006 


1687 


EAXIX 






EDVR 


0007 


168D 


EDVRX 






EOIV 






EDIVX 






ELD 


0009 


1694 


ELDX 






ESTO 






ESTOX 






ELN 


OOOB 


169D 


EALOG 






EMPY 


0004 


16A8 


EMPYX 






ESINE 


OOOD 


16AC 


ESIN 






ECOSN 






ECOS 






ESQR 


0007 


16B9 


ESQRT 






ETNH 


0006 


16C0 


ETANH 






ETRTN 


0004 


16C6 


ETNTR 






EXPN 


OOOB 


16CA 


EEXP 






FSBR 


OOOB 


16D5 


FSBRX 






FADD 






FSUB 






FADDX 






FSUBX 






FARC 


0004 


16E0 


FATN 


OOOC 


16E4 


FATAN 






FAVL 


0003 


16F0 


FABS 






FAXB 


0006 


16F3 


FAXBX 






FAXI 


0006 


16F9 


FAXIX 






FBTD 


001A 


16FF 


FDTB 






FDIV 


0008 


1719 


FDIVX 






FDVR 






FDVRX 






FIXIX 


0005 


1721 


FIXI 






FLD 


0009 


1726 


FLDX 






FSTO 






FSTOX 






FLN 


OOOB 


172F 


FALOG 






FLOAT 


0003 


173A 


FMPY 


0005 


173D 


FMPYX 






FSINE 


OOOB 


1742 


FSIN 






FCOSN 






FCOS 






FSQR 


0007 


174D 


FSQRT 






FTNH 


0006 


1754 


FTAN.H 






FTRTN 


0004 


175A 


FTNTR 






FXPN 


0009 


175E 


FEXP 






IABS 


0003 


1767 


IFIX 


0004 


176A 


NORM 


0004 


176E 


SNR 


0003 


1772 


XDD 


0006 


1775 


XMD 


0005 


177B 


XMDS 


0004 


1780 


XSQR 


0004 


1784 


BINDC 


0006 


1788 


BINHX 


0004 


178E 


DCBIN 


0006 


1792 


EBPA 


0006 


1798 


EBPRT 


OOOA 


179E 


HOLEB 


0012 


17A8 


HOLPR 


OOOD 


17BA 


HXBIN 


0005 


17C7 


PAPEB 


0010 


17CC 


PAPHL 


0014 


17DC 


PAPPR 


0011 


17F0 


PRT 


0005 


1801 


ADRCK 


0007 


1806 


COMGO 


0006 


180D 


C0MG1 






DATSW 


0004 


1813 


DVCHK 


0002 


1817 


ESIGN 


0005 


1819 


FCTST 


0003 


181E 


FSIGN 


0005 


1821 


IOU 


0007 


1826 


ISIGN 


0003 


182D 


ISTOX 


0003 


1830 


LDFAC 


0004 


1833 


STFAC 






SBFAC 






DVFAC 






MDFIO 


0023 


1837 


MDAF 






MDAI 






MDCOM 






MDF 






MDFX 






MDI 






MDIX 






MDRED 






MDWRT 






MDFND 


0008 


185A 


MFIO 


0059 


1862 


MRED 






MWRT 






MCOMP 






MIOAF 






MIOAI 






MIOFX 






MIOIX 






MIOF 






MIOI 






MGOTO 


OOOE 


18BB 


MFIF 






MIIF 






MEIF 






MIAR 


OOOE 


18C9 


MIARX 






MFAR 






MFARX 






MEAR 






MEARX 






OVERF 


0002 


18D7 


PAUSE 


0002 


18D9 


REWND 


0009 


18DB 


BCKSP 






EOF 






SAVE 


OOOA 


18E4 


IOFIX 






SLITE 


0006 


18EE 


SLITT 






SSWTC 


0004 


18F4 


STOP 


0003 


18F8 


SUBIN 


0005 


18FB 


SUBSC 


0004 


1900 


TSTOP 


0002 


1904 


TSTRT 


0002 


1906 


TTEST 


0003 


1908 


TSET 






UFIO 


001C 


190B 


URED 






UWRT 






UIOI 






UIOF 






UIOAI 






UIOAF 






UIOFX 






UIOIX 






UCOMP 






PLCITX 


OOOD 


1927 


CARDN 


0016 


1934 


PAPTN 


0010 


194A 


MAGT 


0020 


195A 


AIPTN 


0009 


197A 


AIPN 






AISQN 


OOOF 


1983 


AISN 






AIRN 


OOOD 


1992 


ANINT 


0014 


199F 


DINP 


0013 


19B3 


DIEXP 


0006 


19C6 


DICMP 


0007 


19CC 


DAOP 


0013 


19D3 


IOPE 


0009 


19E6 


OUSLY 






ETS 






XSAVE 


0009 


19EF 


XEXIT 






XLOAD 






GAGED 


0003 


19F8 


UNGAG 






AIP 


0004 


19FB 


AIS 


OOOD 


19FF 


AIR 


0011 


1A0C 


CS 


0008 


1A1D 


VS 






DI 






PI 






CSC 


OOOA 


1A25 


VSC 






DIC 






PIC 






CSX 


0004 


1A2F 


VSX 






DIX 






PIX 






DAC 


0007 


1A33 


CO 






DO 






PO 






QZERQ 


0002 


1A3A 


QZ010 


0006 


1A3C 


BT1BT 


0007 


1A42 


BT2BT 


0003 


1A49 


FCHAR 


0005 


1A4C 


SCALF 


0002 


1A51 


FGRID 


0007 


1A53 


FPLOT 


0004 


1A5A 


ECHAR 


0005 


1A5E 


SCALE 


0002 


1A63 


EGRID 


0008 


1A65 


EPLOT 


0005 


1A6D 


POINT 


0007 


1A72 


FCHRX 


0024 


1A79 


FCHRI 






WCHRI 






FRULE 


0009 


1A9D 


FMOVE 






FINC 






ECHRX 


0025 


1AA6 


ECHRI 






VCHRI 






ERULE 


OOOB 


1ACB 


EMOVE 






EINC 






XYPLT 


0007 


1AD6 


PLOT I 


0003 


1ADD 


PLOTS 






.TEMP 


1AE0 


1B00 


.E 


5A00 


1B00 





















FLET 



PACK LABEL 
OOOOO 



9DUMY OOAO 05A0 



• E 



OOAO 05A0 



PACK LABEL 




11111 




.LET 0080 


0000 


SPECL 




0UE15 0002 


0159 


IADDR 0002 


0175 


.E 1180 


0180 



SYDIR 009E 0080 

BACK 

TCONT 0003 015B 

ISBAD 0002 0177 



OUTTR 

EACLK 

TABRT 0002 015E 

CESET 0002 0179 



CHAIN 

SCHED 0014 011E 

GETVL OOOB 0160 

ABORT 0002 017B 



INTEX 






SHARE 






LEV10 


0024 


0132 


SOUT 


0003 


0156 


CONVR 


0005 


016B 


PTIME 


0005 


0170 


ENDGD 


0002 


01 7D 


.TEMP 


017F 


0180 
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Continued 




































FLET 
































PACK t 


.ABEL 


































1111] 


L 


































.PRWS 


0051 


1118 


.FIOS 


OOOF 


1169 


.MESS 


00A3 


1178 


/EPDM 


7FFF 


121B 


/EPSV 


0780 


1282 


/INSV 


48FF 


1288 


/NPSV 


4180 


12C3 


FILE1 


0002 


12F8 


FILE2 


0064 


12FA 


FILE3 


0003 


135E 


COLON 


05DC 


1361 


COLDS 


00D6 


1366 


RSTAR 


0F8C 


1367 


COLDP 


10CE 


1374 


CEINT 


0A26 


1382 


DUM 


012C 


138B 


I DUM 


0094 


138C 


CDUM 


013A 


938D 


GRADE: 


116A 


138E 


SCAN2 


0C2E 


939C 


L0G15 


0D5E 


13A6 


L0G60 


OAEO 


13B1 


SHIFT 


OAEO 


13BA 


WE-EK 


OADC 


13C3 


TREND 


0B7A 


13CC 


COGLP 


101E 


1306 


CCLSP 


0F76 


13E3 


MGRTP 


0FB4 


13F0 


CPJSP 


OFCC 


13FD 


STRND 


OBFC 


140A 


AIMON 


0D90 


1414 


9DUMY 


0159 


141F 


/SPSV 


4180 


1578 


/PRSV 


4180 


15AD 


• SKEL 


0036 


15E2 


.EPRG 


0022 


1618 


/CLST 


0780 


163A 


.E 


0280 


12F8 
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DUP FUNCTION COMPLETED 



// JOB A 
// END OF ALL JOBS 



// JOB A 

// * NONPROCESS CORE LOAD 

// * SPECIAL JOB TO SET UP FILES ON DISK 

// FOR SPECL 

*LIST ALL 

** SPECIAL PROGRAM TO SET UP FILES ON DISK 

*I0CS(DISK,1443 PRINTER) 

'."•NONPROCESS PROGRAM 

*ONE WORD INTEGERS 

C 

C THIS IS A SPECIAL ONE TIME ONLY CORE LOAD TO SET UP THE JOB 

C FILES ON DISK FOR TEST PURPOSES. 

C 

INTEGER SW0,SW1,SW2, SW3 , SW4, SW5, DAY 

INTEGER VALUE! 15) , SETPT ( 8 ) , COUMT ( 8 ) , 0FFLNI8) 

DIMENSION RANGE(8),AHL(40),ALL(40),A(40) ,B(40) , LOW (8 ) , G ( 16 ) , H ( 16 ) 

COMMON/ I NSKEL / SWO, SW 1, SW 2, SW3,SW4,SW5, DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,COUMT,OFFLN,AHL,ALL,A,B,IBASE,IBASZ,IBAZZ,G,H,IENDT,IPERD,ITCNT 
2,IP0NT 

DEFINE FILE 1(2, 320, U, I I ) 

DEFINE FILE 2 ( 100, 320, U, JOBN ) 

DO 10 J=l,40 

AHL( J)=32000. 

ALL( J)=-32000. 

A( J)=-l. 

10 B(J)=0. 

DO 11 J=l,8 
RANGE* J)=-32000. 

11 LOW(J)=0 

WRITE! 1' 1) RANGE, LOW, A, B 

DO 12 J=4,ll 

K=40-J 

AHL(K)=5.5 

12 ALL(K)=4.5 
KK = 

K = 20 

ITIME=20*60 

IX = -1 

DO 13 J=l,8 

13 SETPT(J)=0 
J0BN=1 

DO 100 J=l,100 

SETPT( 1)=50+IX*20 

SETPT(2)=50-IX*20 

IX=IX*(-1) 

WRITE(2' JOBN) J , I TI ME , SETPT, AHL , ALL 

WRITE(3,14) J,KK,K 

14 F0RMAT(8I5) 
WRITE(3,14)SETPT(8),SETPT(7),SETPT(6),SETPT(5),SETPT(4),SETPT(3),S 

1ETPTI2) ,SETPT( 1) 
DO 20 I B= 1,39, 2 
IC=41-IB 
ID=IB+1 
20 CONTINUE 

15 F0RMAT(2( I 10,2F10.2) ) 
3,00 CONTINUE 

CALL EXIT 
END 
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VARIABLE ALLOCATIONS 

CSWOt I*)=FFFF CSW1(I*)=FFFE CSW2 ( I* ) = FFFD CSW3 ( I* ) =FFFC CSW4 ( I* ) = FF FB CSW5( I* ) =FFFA 

DAY(I*)=FFF9 JOBN ( I * ) = FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* )=FFE6-FFD8 LOW ( I* ) = FFD7-FFD0 SETPT ( I* ) =FFCF-FFC8 

COUMTf I* )=FFC7-FFCO OFFLN ( I*) =FFBF-FFB8 AHL ( R* >=FFB6-FF68 ALL ( R* ) =FF66-FF1 8 A ( R* ) =FF16-FEC8 B < R* > =FEC6-FE78 

IBASE(I*)=FE77 I BASZ ( I* ) = FE76 IBAZZ ( I* ) =FE75 G ( R*) =FE72-FE54 H ( R* )=FE52-FE34 IENDT ( I* ) =FE33 

IPERD(I*)=FE32 I TCNT ( I * ) =FE31 IPONT ( I* ) = FE30 1 1 f I )=OOOC J(I ) = OOOD K(I )=OOOE 

KK(I )=OOOF ITIMEd )=0010 IX(I )=0011 IB(I 1=0012 ICtI 1=0013 ID ( I )=0014 

UNREFERENCED STATEMENTS 
15 

STATEMENT ALLOCATIONS 
14 =0036 15 =0039 10 =005A 11 =0077 12 =OOAC 13 =0003 20 =015C 100 =0166 

FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
FLD FSTOX ISTOX STFAC SBFAC MWRT MCOMP MIOIX MIOI SUBSC SNR MDWRT MDCOM MDA I MDAF 
MDI PRNTN EBPRT 

REAL CONSTANTS 

.320000E 05=001E .100000E 01=0020 .OOOOOOE 00=0022 .550000E 01=0024 .450000E 01=0026 

INTEGER CONSTANTS 

1=0028 40=0029 8=002A 0=002B 4=002C 11=002D 20=002E 60=002F 100=0030 50*0031 
2=0032 3=0033 39=0034 41=0035 

CORE REQUIREMENTS FOR SPECL 
COMMON INSKEL COMMON 464 VARIABLES 30 PROGRAM 340 

END OF COMPILATION 

SPECL 

DUP FUNCTION COMPLETED 

// XEO SPECL L 

*FILES(l f FILElf 1) 

*FILES(2,FILE2,1) 

*CCEND 

CLB, BUILD SPECL 

CORE LOAD MAP 

TYPE NAME ARG1 ARG2 



*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


002A 


*PNT 


TABLE 


3F36 


0004 


*DFT 


TABLE 


3F3A 


OOOC 


MAIN 


SPECL 


3F79 




PNT 


SPECL 


3F38 




LIBF 


EBPRT 


40AC 


3F0C 


LIBF 


SNR 


414C 


3F0F 


LIBF 


MDWRT 


42B7 


3F12 


LIBF 


MDAF 


416B 


3F15 


LIBF 


MDAI 


4178 


3F18 


LIBF 


MDCOM 


422E 


3F1B 


LIBF 


STFAC 


44EE 


3F1E 


LIBF 


SBFAC 


44F2 


3F21 


LIBF 


MDI 


4170 


3F24 


LIBF 


MWRT 


4690 


3F27 


LIBF 


MIOI 


4746 


3F2A 


LIBF 


MCOMP 


471D 


3F2D 


LIBF 


MIOIX 


4752 


3F30 


CALL 


PRT 


4B42 




CALL 


BT2BT 


4B8C 




CALL 


SAVE 


4BA8 




CALL 


IOFIX 


4C0C 




LIBF 


IOU 


4C3C 


3F33 


CALL 


BT1BT 


4C72 




CORE 




4CD8 


3328 



CLB, SPECL LD XC 
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20 






























30 


70 


97 





20 






























70 


30 


98 





20 






























30 


70 


99 





20 






























70 


30 


100 





20 






























30 


70 



// JOB A 

// * N0NPR0CESS CORE LOAD 

// FOR SCALB 

"KLIST ALL 

** CALIBRATION PROGRAM FOR SET POINT STATIONS 

*I0CS(DISK,1443 PRINTER, CARD) 

*NONPROCESS PROGRAM 

*ONE WORD INTEGERS 

C 

C THIS NONPROCESS CORE LOAD IS FOR CALIBRATING THE SET POINT 

C STATIONS. 



INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT(8),C0UMT(8),0FFLN(8> 

DIMENSION RANGE(8),AHL(40),ALL(40),A(40) ,B (40 ) ,LOW ( 8 ) ,G ( 16 ) ,H( 16 ) 

COMMON/ I NSKEL/ SWO, SW1,SW2,SW3,SW4,SW5, DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN,AHL,ALL,A,B,IBASE, IBASZ , IBAZZ ,G ,H, IENDT , IPERD, ITCNT 
2,IP0NT 

DEFINE FILE 1 ( 2 , 320 , U , I I ) 
100 READ(2,1)I 

1 FORMAT(Il) 

IF (1)100,100,2 

2 J=9-I 
K=4095+I 

IF( J)100,100,3 

3 WRITE (3,4) I 

4 FORMAT!' SET LOOP'12,' TO LOW VALUE') 
PAUSE 

CALL AIP(11000,IL,K) 

5 CALL AIP(0,II ) 
GO TO (5, 6), II 

6 WRITE(3,999)IL 
WRITE(3,7) 

7 FORMAT!' NOW SET IT TO HIGH VALUE') 
PAUSE 

CALL AIPI 11000, IH,K) 

8 CALL A1P(0,II ) 
GO TO (8,9) , I I 

9 RANGE! J)=IH-IL 
WRITE(3,999) IH 

999 FORMAT! • VALUE IS' 110) 
LOW! J)=IL 

WRITE! 1' 1 ) RANGE, LOW, A, B 
GO TO 100 
END 
VARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSWK I*) = FFFE CSW2 ( I* ) = FFFD CSW3 ( I* ) = FFFC 
DAY! I*)=FFF9 JOBN ( I * ) =FFF8 VALUE ( I* ) =FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 
COUMT! I*)=FFC7-FFC0 OFFLN ( I * ) = FFBF-FFB8 AHL ( R* ) =FFB6-FF68 ALL ( R* ) =FF66-FF 18 
IBASE(I*)=FE77 I BASZ ( I * ) =FE76 I BAZZ ( I* ) =FE75 G ( R* ) =FE72-FE54 

IPERD( I*)=FE32 I TCNT( I * ) = FE31 IPONT ( I* ) =FE30 IKI )=0006 

K(I )=0009 I L ( I )=000A IH(I )=000B 



CSW4! I*)»FFFB CSW5U* 

LOW! I*)=FFD7-FFD0 SETPTU* 

A(R*)=FF16-FEC8 B(R* 

H(R*) = FE52-FE34 IENDTd* 



)=FFFA 
)=FFCF-FFC8 
)=FEC6-FE78 
)=FE33 



1(1 )=0007 



J(I )=0008 
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Continued 

STATEMENT ALLOCATIONS 
1 =0017 4 =0019 7 =0029 999 =0038 100 =0040 2 = 004A 3 =005A 5 =0067 6 =0071 £ 
9 =008C 

FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
AIP FSTOX FLOAT COMGO ISTOX MRED MWRT MCOMP MIOI SUBSC PAUSE MDWRT MDCOM MDAI 
HOLEB PRNTN EBPRT CARDN 

INTEGER CONSTANTS 

2=000E 9=000F 4095=0010 3=0011 11000=0012 0=0013 1=0014 0=0015 0=0016 

CORE REQUIREMENTS FOR SCALB 
COMMON INSKEL COMMON 464 VARIABLES 14 PROGRAM 172 

END OF COMPILATION 

SCALB 

DUP FUNCTION COMPLETED 

// DUP 

*STORECIL 1 SCALB SCALB 

*FILES(1,FILE1,1) 

*CCEND 

CLB, BUILD SCALB 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


#VTV 


TABLE 


3F0C 


0027 


#PNT 


TABLE 


3F34 


0004 


*DFT 


TABLE 


3F38 


0006 


MAIN 


SCALB 


3F78 




PNT 


SCALB 


3F36 




LIBF 


HOLEB 


3FF2 


3F0C 


LIBF 


EBPRT 


4114 


3F0F 


LIBF 


MRED 


432B 


3F12 


LIBF 


MIOI 


43F4 


3F15 


LIBF 


MCOMP 


43CB 


3F18 


LIBF 


MWRT 


433E 


3F1B 


LIBF 


PAUSE 


47F0 


3F1E 


CALL 


AIP 


4804 




LIBF 


MDWRT 


4983 


3F21 


LIBF 


MDAF 


4837 


3F24 


LIBF 


MDAI 


4844 


3F27 


LIBF 


MDCOM 


48FA 


3F2A 



CALL PRT 4BA4 

LIBF IOU 4BEE 3F2D 

CALL IOFIX 4C88 

CALL BT1BT 4CB8 

CALL SAVE 4C24 

LIBF AIPTN 4D1C 3F30 

CALL BT2BT 4D9E 

CORE 4DBC 3244 

CLB, SCALB LD XO 

DUP FUNCTION COMPLETED 



®'/,i 



// JOB A 

DATA CARDS FOR CALIBRATING LOOPS 7 AND 
// XEO SCALB FX 



SET LOOP 7 TO LOW VALUE 

VALUE IS -202 

NOW SET IT TO HIGH VALUE 

VALUE IS -31218 

SET LOOP 8 TO LOW VALUE 

VALUE IS -644 

NOW SET IT TO HIGH VALUE 

VALUE IS -31522 



Programming Techniques 271 



® 



// JOB A 

// * NONPROCESS CORE LOAD 

// FOR RCALB 

*LIST ALL 

** CALIBRATION PROGRAM FOR OP-GUIDE POINTS 

*I0CS(DISK,1443 PRINTER, CARD) 

^NONPROCESS PROGRAM 

*ONE WORD INTEGERS 

C 

C THIS NONPROCESS CORE LOAD IS FOR CALIBRATING THE ANALOG INPUT 

C POINTS FOR OP-GUIDE. 



INTEGER SW0,SW1,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE(15),SETPT<8) ,COUMT( 8) ,OFFLN(8) 

DIMENSION RANGE(8),AHL(40),ALL(40),A(40),B(40),L0W(8),G(16),H(16) 

COMMON / I NSKE L/ SWO, S W 1, SW2, SW3,SW4,SW5, DA Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN, AHL,ALL,A,B, IBASE,IBASZ,IBAZZ,G,H,IENDT, IPERD,ITCNT 
2, IPONT 

DEFINE FILE 1 < 2, 320, U, I I ) 
100 READ(2,1) I ,ENGH,ENGL 

1 FORMAT! I2,8XF10.2,F10.2) 
I'FI I ) 100, 100, 2 

2 L=41-I 
M=I-1 

IF(L) 100,100,3 

3 WRITE(3,4)I 

4 FORMAT! 1 SET P0INT'I3,' TO LOW VALUE') 
PAUSE 

CALL AIPI 11000, IL,M) 

5 CALL AIP (0,11) 
GO TO (5,6) ,11 

6 WRITE(3,999) IL 
WRITE(3,7) 

7 FORMAT! ' NOW SET IT TO HIGH VALUE') 
PAUSE 

CALL AIP! 11000, IH,M) 

8 CALL AIP(0,II ) 
GO TO (8,9) , I I 

9 A(L)=(ENGH-ENGL)/( IH-IL) 
B(L)=ENGH-(A(L)*IH) 
WRITE(3,999) IH 

999 FORMAT)' VALUE IS'IIO) 
WRITE! 1' 1 ) RANGE, LOW, A, B 
GO TO 100 
END 
VARIABLE ALLOCATIONS 

CSWO! I*)=FFFF CSW1 ( I * ) = FFFE 

DAY(I*)=FFF9 JOBN ( I * ) =FFF8 

COUMTI I*)=FFC7-FFC0 OFFLN ( I * ) = FFBF-FFB8 

IBASE(I*)=FE77 I BASZ ( I* ) =FE76 

IPERDI I*)=FE32 I TCNT ( 1 1< ) = FE3 1 

Id )=000D L(I )=000E 



CSW2( I*)=FFFD CSW3( I*)=FFFC 
VALUE! I*)=FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 
AHL(R*)=FFB6-FF68 ALL ( R* ) =FF66-FF 18 
IBAZZ! I*)=F!!7b G ( R* ) =F E72-FE54 

IPONTI I*)=FL30 ENGHIR )=O006 
M(I )=000F I L ( I )=0010 



CSW4( I*)=FFFB CSW5 

LOW( I*)=FFD7-FFD0 SETPT 

A(R*)=FF16-FtC8 B 

H(R*)=FE52-FE34 IENDT 

ENGLIR )=0008 II 

IH(I )=0011 



( I*)=FFFA 

( I*)=FFCF-FFC8 

(R*)=FEC6-FE78 

( I*)=FE33 

(I )=000C 



STATEMENT ALLOCATIONS 
1 =001C 4 =0021 
9 =0098 



=0031 999 =0040 100 



FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 
IOCS 



CALLED SUBPROGRAMS 
AIP FSUB FMPYX 
SU8SX PAUSE MDWRT 

INTEGER CONSTANTS 

2=0014 41=0015 



FLD FSTO 


FSTOX 


FSB* FDVR 


FLOAT 


COMGO 


MDCOM MDAI 


MDAF 


HOL:B PRNTN 


EBPRT 


CARDN 


1=0016 


3=0017 


11000=0018 


0=0019 






0=001B 



CORE REQUIREMENTS FOR RCALB 
COMMON INSKEL COMMON 



464 VARIABLES 



10 PROGRAM 



END OF COMPILATION 



RCALB 

DUP FUNCTION COMPLETED 

// DUP 

*DELET RCALB 

RCALB 

D25 NAME NOT IN L/F 

*STORECIL 1 RCALB RCALB 

*FILES(1,FILE1,1) 

*CCEND 
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CLB, 


BUILD 


RCALB 




CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


0030 


*PNT 


TABLE 


3F3C 


0004 


*DFT 


TABLE 


3F40 


0006 


MAIN 


RCALB 


3F88 




PNT 


RCALB 


3F3E 




LIBF 


HOLEB 


4010 


3F0C 


LIBF 


EBPRT 


4132 


3F0F 


LIBF 


MRED 


4349 


3F12 


LIBF 


MIOI 


4412 


3F15 


LIBF 


MIOF 


440D 


3F18 


LIBF 


MCOMP 


43E9 


3F1B 


LIBF 


MWRT 


435C 


3F1E 


'LIBF 


PAUSE 


480E 


3F21 


CALL 


AIP 


4822 




LIBF 


FSUB 


4862 


3F24 


LIBF 


FSBR 


484E 


3F27 


LIBF 


MDWRT 


4A3F 


3F2A 


LIBF 


MDAF 


48F3 


3F2D 


LIBF 


MDAI 


4900 


3F30 


LIBF 


MDCOM 


49B6 


3F33 


CALL 


PRT 


4C60 




LIBF 


IOU 


4CAA 


3F36 


CALL 


IOFIX 


4D44 




CALL 


BT1BT 


4D74 




CALL 


SAVE 


4CE0 




LIBF 


AIPTN 


4DD8 


3F39 


CALL 


BT2BT 


4E5A 




CORE 




4E78 


3188 



CLB, RCALB LO XQ 
OUP FUNCTION COMPLETED 



// JOB A 

// * DATA CARDS FOR CALIBRATING POINTS 5 THROUGH 12 

// XEQ RCALB FX 



SET POINT 
VALUE IS 
NOW SET IT 
VALUE IS 
SET POINT 
VALUE IS 
NOW SET IT 
VALUE IS 
SET POINT 
VALUE IS 
NOW SET IT 
VALUE IS 
SET POINT 
VALUE IS 
NOW SET IT 
VALUE IS 
SET POINT 
VALUE IS 



5 TO LOW VALUE 

-100 
TO HIGH VALUE 
-32362 

6 TO LOW VALUE 

-148 
TO HIGH VALUE 
-32462 

7 TO LOW VALUE 

-126 
TO HIGH VALUE 
— 3? 338 

8 TO LOW VALUE 

-248 
TO HIGH VALUE 
-32562 

9 TO LOW VALUE 

-102 



NOW SET IT TO HIGH VALUE 

VALUE IS -32546 

SET POINT 10 TO LOW VALUE 

VALUE IS -78 

NOW SET IT TO HIGH VALUE 

VALUE IS -32458 

SET POINT 11 TO LOW VALUE 

VALUE IS -86 

NOW SET IT TO HIGH VALUE 

VALUE IS -32466 

SET POINT 12 TO LOW VALUE 

VALUE IS -100 

NOW SET IT TO HIGH VALUE 

VALUE IS -32516 
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I JOB A 

/ * NONPROCESS CORE LOAD 

/ FOR CMIPT 

LIST ALL 

* CALIBRATION PROGRAM FOR DATA ENTRY DIALS 

IOCS(DISK) 

IOCS! 1443 PRINTER) 

NONPROCESS PROGRAM 

ONE WORD INTEGERS 

THIS NONPROCESS CORE LOAD IS FOR CALIBRATING THE DATA ENTRY 
DIALS. 



INTEGER SWO,SWl,SW2,SW3,SW4,SW5,DAY 

INTEGER VALUE! 15),SETPT(8) ,COUMT(8) ,OFFLN(6) 

DIMENSION INA! 16) ,INB( 16) 

DIMENSION RANGE (8) , AHL < 40 > , ALL ( 40 ) , A ( 40) ,B ( 40 ) ,LOW ( 8 ) ,G ( 16 ) ,H( 16 ) 

COMMON/ I NSKEL / SWO, SW 1 , SW 2, SW3 , SW4 , SW5 , D A Y,JOBN, VALUE, RANGE, LOW, SET 
1PT,C0UMT,0FFLN, AHL,ALL, A,B, I BASE, IBASZ, IBAZZ ,G ,H, I ENDT , IPERD,ITCNT 
2,IP0NT 

DEFINE FILE 1(2, 320, U, II ) 

WRITE(3,1) 

1 FORMAT! ■ SET DATA ENTRY DIALS TO 0') 
PAUSE 

CALL GETVL! INA) 
WRITE(3,2) 

2 FORMAT! • SET DATA ENTRY DIALS TO 10') 
PAUSE 

CALL GETVL(INB) 
DO 10 J=l,16 

G( J) = 10./( INB! J)-INA( J) ) 
10 H( J)=10.-(G( J)*INB( J) ) 
WRITE! 1'2)G,H 
CALL EXIT 
END 
/ARIABLE ALLOCATIONS 

CSWO(I*)=FFFF CSWK I*) = FFFE 

DAY! I*)=FFF9 JOBN ( I * ) =FFF8 

COUMT! I*)=FFC7-FFC0 OFFLN! I*)=FF8F-FFB8 

IBASE! I*)=FE77 I BASZ ( I* ) =FE76 

IPERD! I*)=FE32 I TCNT ( I * ) = FE31 

J(I )=0029 



CSW2! I*)=FFFD CSW3 ( I *) = FFFC 

VALUE! K)=FFF7-FFE9 RANGE ( R* ) =FFE6-FFD8 

AHL(R*)=FFB6-FF68 ALL ( R* ) =FF66-FF 18 

IBAZZ! I*)=FE75 G ( R* ) =FE72-FE54 

IPONT! I*)=FE30 INA(I )=0017-0008 



CSW4! I*) = FFF8 CSW5 ( I * ) =FFF A 
L0W!I*)=FFD7-FFD0 SETPT ( I* ) =FFCF-FFC8 
A(R*)=FF16-FEC8 B ( R*) =FEC6-FE78 
H(R*) = FE52-FE34 I ENDT! I + )=FE33 
INB(I 1 = 0027-0018 IKI )=0028 



STATEMENT ALLOCATIONS 
1 =0034 2 =0043 

FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 
IOCS 



CALLED SUBPROGRAMS 
GETVL FMPY FLDX 
PRNTN EBPRT 



FSTO 



FSTOX FSBR 



FLOAT MWRT 



MCOMP SUBSC PAUSE 



MDCOM MDAF 



REAL CONSTANTS 

.100000E 02=002C 



INTEGER CONSTANTS 

3=002E 1=002F 



16=0030 



0=0033 



CORE REQUIREMENTS FOR CMIPT 
COMMON INSKEL COMMON 



464 VARIABLES 



44 PROGRAM 



END OF COMPILATION 



CMIPT 

DUP FUNCTION COMPLETED 

*STORECIL 1 CMIPT CMIPT 

*FILES(1,FILE1, 1) 

*CCEND 

CLB, BUILD CMIPT 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3F0C 


001E 


*PNT 


TABLE 


3F2A 


0004 


*DFT 


TABLE 


3F2E 


0006 


MAIN 


CMIPT 


3F81 
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PNT 


CMIPT 


3F2C 




LIBF 


EBPRT 


3FD4 


3FOC 


LIBF 


MWRT 


41FE 


3FOF 


LIBF 


MCOMP 


428B 


3F12 


LIBF 


PAUSE 


46B0 


3F15 


CALL 


6ETVL 


46EE 




LIBF 


FSBR 


478A 


3F18 


LIBF 


MDWRT 


497B 


3F1B 


LIBF 


MDAF 


482F 


3F1E 


LIBF 


MDCOM 


48F2 


3F21 



CALL PRT 4B9C 

LIBF IOU 4BE6 3F24 

CALL IOFIX 4C80 



4CBO 
4C1C 



CALL BT1BT 

CALL SAVE 

LIBF SUBIN 4D14 

CALL BT2BT 4D4E 
CORE 4D6C 



3F27 



3294 



CLB, CMIPT LD XO 
DUP FUNCTION COMPLETED 



®'/, 



// JOB 

XEO CMIPT 



SET DATA ENTRY DIALS TO 
SET DATA ENTRY DIALS TO 10 



®'/,i 



OB A 

NONPROCESS CORE LOAD 
// FOR LOADJ 
*LIST ALL 

I"!" PROGRAM TO LOAD JOB DATA FILES ON DISK FROM CARDS 
*I0CS(DISK,1443 PRINTER, CARD) 
^NONPROCESS PROGRAM 
*ONE WORD INTEGERS 
C 

C THIS PROGRAM LOADS THE PROCESS JOB FILES ON DISK WITH DATA 
C READ FROM CARBS. 



INTEGER SETPT(B) 

DIMENSION AHL(40),ALL(40) , INPP(8) 

DEFINE FILE 2 ( 100 , 320, U, I I I ) 

1 CALL PTIME(TIME) 
WRITE(3,2)TIME 

2 FORMATf '1PR0CESS JOB FILE LOAD 
JOBN=0 

ITIME=0 
DO 3 J=l,8 

3 SETPT(J)=0 
DO 4 J=l,40 
AHL( J)=32000. 

4 ALU J)=-32000. 

10 READ(2,11) J,IV,BB,CC 

11 FORMATf II, 4X15, 2F10.0) 

GO TO ( 100, 200, 300, 400, 700), J 

100 IF(IV)600,600,101 

101 JOBN=IV 
ITIME=BB*100. 
I=ITIME/100#100 
K=ITIME-I 
1=1/100 
IF(K-60)102,600,600 

102 AB=I*3600.+K*60. 
IF(32000.-AB)600,10 3,103 
ITIME=AB 
AB = BB 
GO TO 1.0 

IF(IV)600,600,201 
I=41-IV 

I F ( I 1600,600,202 
AHLU ) = BB 

ALLd )=CC 

IF(AHL( I )-ALL( I ) ) 600, 600, 10 
300 IF ( IV)600,600,301 



TIME'F7.2) 



103 



200 
201 



202 
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301 I=9-IV 

IF < I )600,600,302 

302 SETPTU )=BB 
IF(SETPT(I ) )600,600,303 

303 IFUOO-SETPT! I) )600,600,10 

400 IF( JOBN)600,600,409 
409 IN=JOBN/100*100 

I=J0BN-IN 

IF( I 1600,401,402 

401 1=100 

402 WRITE! 2' I ) JOBN, I T I ME , SETPT , AHL , ALL 
WRITE!3,403>JOBN,AB 

403 FORMAT!' GRADE NUMBER ' 16 , 5X ' PRODUCTION TIME'FIO.2) 
WRITE(3,500) 

500 FORMAT!' OP-GUIDE LIMITS FOR GRADE') 
WRITE(3,501) 

501 FORMAT!' POINT HIGH LIMIT LOW LIMIT', 10X' POINT HIGH LIMIT 
1 LOW LIMIT' ) 

DO 503 J=l,39,2 
K=41-J 
J1 = J 
J2=J+1 
503 WRITE (3, 502) Jl , AHL ( K ) , ALL ( K ) ,J2,AHL(K-1) ,ALL(K-1) 

502 FORMAT! I6,2F13.2,10XI6,2F13.2) 
WRITE(3,510) 

510 FORMAT!' CLOSED LOOP SET POINTS FOR GRADE') 
WRITE(3,511) 

511 FORMAT ( 3X'P0 INT ',5X' SETPT ',5X' PO INT ', 5X' SETPT ', 5X • PO INT ', 5X • SETPT ' 
l,5X'POINT',5X'SETPT' ) 

DO 6 J=l,8 

6 INPP(J)=SETPT( J) 
DO 30 1=1,5,4 

J1 = I 
J2=I+1 
J3=I+2 
J4=I+3 
IA=9-I 
IB=8-I 
IC=7-I 
ID=6-I 
30 WRITE(3,7)J1,INPP(IA),J2,INPP(IB),J3,INPP(IC),J4,INPP(ID) 

7 FORMAT! 18,110,3! 110,110) ) 
GO TO 1 

600 WRITE(3,601) J, IV,BB,CC 

601 FORMAT!' INVALID DATA CARD • , / I 5 , 4X 1 5 , 2F 1 . 2 ) 
GO TO 1 

700 CALL EXIT 
END 
VARIABLE ALLOCATIONS 

AHL(R 1=0054-0006 ALLIR 

INPPU )=00B7-00B0 SETPTd 

I V ( I )=00C4 Id 

J3(I )=OOCA J4(I 



)=00A4-0056 CTIMEtR 
)=00BF-00B8 IIKI 
)=00C5 K(I 

)=00CB I A ( I 



)=00A6 
)=00C0 
)=00C6 
)=00CC 



BB(R )=00A8 

JOBNU )=00C1 

IN ( I )=00C7 

IB(I )=00CD 



CC(R )=OOAA 

I TIME ( I )=00C2 

Jill )=00C8 

IC(I )=00CE 



AB(R ) 

J! I ) 

J2( I ) 

ID! I ) 



OOAC 
00C3 
00C9 
OOCF 



STATEMENT ALLOCATIONS 

2 =00EB 11 =00FD 403 =0103 500 =0118 501 =0127 502 =014B 510 =0153 511 =0166 7 

1 =01A7 3 =01BC 4 =01DB 10 =01EB 100 =0200 101 =0204 102 =022C 103 =0243 200 

202 =025C 300 =0276 301 =027A 302 =0284 303 =0294 400 =02A1 409 =02A5 401 =02BB 402 

6 =0324 30 =0368 600 =039C 700 =03AA 



=018F 601 =0196 
= 024E 201 =0252 
=02BF 503 =02F4 



FEATURES SUPPORTED 
NONPROCESS 
ONE WORD INTEGERS 
IOCS 



CALLED SUBPROGRAMS 
PTIME FADD FSUB 
MWRT MCOMP MIOFX 
EBPRT CARDN 



FSUBX 


FMPY 


FLD 


FLDX 


FSTO 


FSTOX 


IF IX 


FLOAT 


COM GO 


ISTOX 


LDFAC 


MRED 


MIOIX 


MIOF 


MIDI 


SUBSC 


SNR 


MDWRT 


MDCOM 


MDAI 


MDAF 


MDI 


HOLEB 


PRNTN 



REAL CONSTANTS 

.320000E 05=00D4 

INTEGER CONSTANTS 

3=00DC 0=OODD 
39=00E6 5=00E7 



, 100000E 03 = 00D6 



1=00DE 
4=00E8 



.360000E 04==00D8 



8=00DF 
7=00E9 



4O=00E0 
6=00EA 



.600000E 02=00DA 
2 = 0.0E1 100 = 



60=00E3 



CORE REQUIREMENTS FOR LOADJ 
COMMON INSKEL COMMON 



VARIABLES 



212 PROGRAM 



728 



END OF COMPILATION 
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LOADJ 

DUP FUNCTION COMPLETED 

*DELET LOADJ 

LOADJ 

D25 NAME NOT IN L/F 

*STORECIL 1 LOADJ LOADJ 

*FILES(2,FILE2 t l) 

*CCEND 



CLB, BUILD LOADJ 



CORE 


LOAD 


MAP 




TYPE 


NAME 


ARG1 


ARG2 


*CDW 


TABLE 


3E82 


OOOC 


*IBT 


TABLE 


3E8E 


001D 


*FIO 


TABLE 


3EAB 


0010 


*ETV 


TABLE 


3EBB 


0051 


*VTV 


TABLE 


3FOC 


003F 


*PNT 


TABLE 


3F4C 


0004 


*DFT 


TABLE 


3F50 


0006 


MAIN 


LOADJ 


40F7 




PNT 


LOADJ 


3F4E 




LIBF 


HOLEB 


42FC 


3F0C 


LIBF 


EBPRT 


44 IE 


3F0F 


CALL 


PTIME 


44CA 




LIBF 


MWRT 


4684 


3F12 


LIBF 


MIOF 


4735 


3F15 


LIBF 


MCOMP 


4711 


3F18 


LIBF 


SNR 


4B36 


3F1B 


LIBF 


MRED 


4671 


3F1E 


LIBF 


MIOI 


473A 


3F21 


LIBF 


FADD 


4B6E 


3F24 


LIBF 


FSUB 


4B62 


3F27 


LIBF 


LDFAC 


4BEC 


3F2A 


LIBF 


FSUBX 


4B5D 


3F2D 


LIBF 


MDWRT 


4D6D 


3F30 


LIBF 


MDI 


4C26 


3F33 


LIBF 


MDAI 


4C2E 


3F36 


LIBF 


MDAF 


4C21 


3F39 


LIBF 


MDCOM 


4CE4 


3F3C 


LIBF 


MIOFX 


4741 


3F3F 


LIBF 


MIOIX 


4746 


3F42 


CALL 


PRT 


4F8E 




LIBF 


SUBIN 


4FD8 


3F45 


LIBF 


IOU 


5012 


3F48 


CALL 


IOFIX 


50AC 




CALL 


BT1BT 


50DC 




CALL 


SAVE 


5048 




CALL 


BT2BT 


5140 




CORE 




515E 


2EA2 



CLB, LOADJ LD XO 
DUP FUNCTION COMPLETED 



®',i 



JOB A 

* UPDATE A PROCESS JOB FILE ON DISK 
// XEQ LOADJ FX 

PROCESS JOB FILE LOAD TIME 14.58 
GRADE NUMBER 12345 PRODUCTION TIME 
OP-GUIDE LIMITS FOR GRADE 



POINT 

1 

3 

5 

7 

9 

11 

13 

15 

17 

19 

21 

23 

25 

27 

29 

31 

33 

35 



HIGH LIMIT 
32000.00 
32000.00 
5.45 
5.45 
5.45 
5.45 
32000.00 
32000.00 
32000.00 
32000.00 
32000.00 
32000.00 
32000.00 
32000.00 
32000.00 
32000.00 
32000.00 
32000.00 



LOW LIMIT 

-32000.00 

-32000.00 

4.96 

4.96 

4.96 

4.96 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 



1.30 



POINT 

2 

4 

6 

8 

10 

12 

14 

16 

18 

20 

22 

24 

26 

28 

30 

32 

34 

36 



HIGH LIMIT 

32000.00 

32000.00 

5.45 

5.45 

5.45 

5.45 

32000.00 

32000.00 

32000.00 

32000.00 

32000.00 

32000.00 

32000.00 

32000.00 

32000.00 

32000.00 

32000.00 

32000.00 



LOW LIMIT 

-32000.00 

-32000.00 

4.96 

4.96 

4.96 

4.96 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-32000.00 
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37 32000.00 -32000.00 

39 32000.00 -32000.00 
CLOSED LOOP SET POINTS FOR GRADE 

POINT SETPT POINT SETPT 

10 2 

5 6 

PROCESS JOB FILE LOAD TIME 14.58 



38 
40 



POINT 
3 



32000.00 
32000.00 

SETPT 



15 



-32000.00 
-32000.00 



POINT 
4 



SETPT 



86 



®'/, 



// JOB 
DUP 
*DUMPLET 



LET 



PACK LABEL 


































00000 


































.DCOM 


0010 


0000 


.MBT 


0020 


0010 


.SKSB 


0020 


0030 


• SUP 


OOBO 


0050 


.CLB 


OOAO 


0100 


.DUP 


0440 


01A0 


• ASM 


0300 


05E0 


• FOR 


0680 


08E0 


.SIM 


05F0 


0F60 


.LET 


0080 


1550 


IAND 


0002 


15D0 


CLEAR 


0009 


15D2 


CLOCK 


0002 


15DB 


COUNT 


0004 


15DD 


DMP 


0017 


15E1 


DMPHX 






DMPDC 






DMPS 


0010 


15F8 


DMPST 






DPART 


0002 


1608 


ENDTS 


0002 


160A 


IEOR 


000 2 


160C 


LD 


0002 


160E 


LEVEL 


0004 


1610 


MASK 


0003 


1614 


OPMON 


0002 


1617 


IOR 


0002 


1619 


QIFON 


OOOA 


161B 


QUEUE 


OOOC 


1625 


RESMK 


0004 


1631 


SAVMK 


0003 


1635 


SETCL 


0003 


1638 


TIMER 


0006 


163B 


UNMK 


0005 


1641 


UNQ 


0005 


1646 


VIAQ 


0007 


164B 


CONHX 


0006 


1652 


TRPRT 


0007 


1658 


FLIP 


0007 


165F 


EADD 


OOOB 


1666 


ESUB 






EADDX 






ESUBX 






ESBR 






ESBRX 






EATN 


OOOD 


1671 


EATAN 






EAVL 


0003 


167E 


EABS 






EAXB 


0006 


1681 


EAXBX 






EAXI 


0006 


1687 


EAXIX 






EDVR 


0007 


168D 


EDVRX 






EDIV 






EDIVX 






ELD 


0009 


1694 


ELDX 






ESTO 






ESTOX 






ELN 


OOOB 


169D 


EALOG 






EMPY 


0004 


16A8 


EMPYX 






ESINE 


OOOD 


16AC 


ESIN 






ECOSN 






ECOS 






ESQR 


0007 


16B9 


ESQRT 






ETNH 


0006 


16C0 


ETANH 






ETRTN 


0004 


16C6 


ETNTR 






EXPN 


OOOB 


16CA 


EEXP 






FSBR 


OOOB 


1605 


FSBRX 






FADD 






FSUB 






FADDX 






FSUBX 






FARC 


0004 


16E0 


FATN 


OOOC 


16E4 


FATAN 






FAVL 


0003 


16F0 


FABS 






FAXB 


0006 


16F3 


FAXBX 






FAXI 


0006 


16F9 


FAXIX 






FBTD 


001A 


16FF 


FDTB 






FDIV 


0008 


1719 


FDIVX 






FDVR 






FDVRX 






FIXIX 


0005 


1721 


FIXI 






FLD 


0009 


1726 


FLDX 






FSTO 






FSTOX 






FLN 


OOOB 


172F 


FALOG 






FLOAT 


0003 


173A 


FMPY 


0005 


173D 


FMPYX 






FSINE 


OOOB 


1742 


FSIN 






FCOSN 






FCOS 






FSQR 


0007 


174D 


FSQRT 






FTNH 


0006 


1754 


FTANH 






FTRTN 


0004 


175A 


FTNTR 






FXPN 


0009 


175E 


FEXP 






IABS 


0003 


1767 


IFIX 


0004 


176A 


NORM 


0004 


176E 


SNR 


0003 


1772 


XDD 


0006 


1775 


XMD 


0005 


177B 


XMDS 


0004 


1780 


XSQR 


0004 


1784 


BINDC 


0006 


1788 


BINHX 


0004 


178E 


DCBIN 


0006 


1792 


EBPA 


0006 


1798 


EBPRT 


OOOA 


179E 


HOLEB 


0012 


17A8 


HOLPR 


OOOD 


17BA 


HXBIN 


0005 


17C7 


PAPEB 


0010 


17CC 


PAPHL 


0014 


17DC 


PAPPR 


0011 


17F0 


PRT 


0005 


1801 


ADRCK 


0007 


1806 


COMGO 


0006 


180D 


C0MG1 






DATSW 


0004 


1813 


DVCHK 


0002 


1817 


ESIGN 


0005 


1819 


FCTST 


0003 


181E 


FSIGN 


0005 


1821 


IOU 


0007 


1826 


ISIGN 


0003 


182D 


ISTOX 


0003 


1830 


LDFAC 


0004 


1833 


STFAC 






SBFAC 






DVFAC 






MDFIO 


0023 


1837 


MDAF 






MDAI 






MDCOM 






MDF 






MDFX 






MDI 






MDIX 






MDRED 






MDWRT 






MDFND 


0008 


185A 


MFIO 


0059 


1862 


MRED 






MWRT 






MCOMP 






MIOAF 






MIOAI 






MIOFX 






MIOIX 






MIOF 






MIOI 






MGOTO 


OOOE 


18BB 


MFIF 






MI IF 






MEIF 






MIAR 


OOOE 


18C9 


MIARX 






MFAR 






MFARX 






MEAR 






MEARX 






OVERF 


0002 


18D7 


PAUSE 


0002 


18D9 


REWND 


0009 


18DB 


BCKSP 






EOF 






SAVE 


OOOA 


18E4 


IOFIX 






SLITE 


0006 


18EE 


SLITT 






SSWTC 


0004 


18F4 


STOP 


0003 


18F8 


SUBIN 


0005 


18FB 


SUBSC 


0004 


1900 


TSTOP 


0002 


1904 


TSTRT 


0002 


1906 


TTEST 


0003 


1908 


TSET 






UFIO 


001C 


190B 


URED 






UWRT 






UIOI 






UIOF 






UIOAI 






UIOAF 






UIOFX 






UIOIX 






UCOMP 






PLOTX 


OOOD 


192 7 


CARDN 


0016 


1934 


PAPTN 


0010 


194A 


MAGT 


0020 


195A 


AIPTN 


0009 


197A 


AIPN 






AISQN 


OOOF 


1983 


AISN 






AIRN 


OOOD 


1992 


ANINT 


0014 


199F 


DINP 


0013 


19B3 


DIEXP 


0006 


19C6 


DICMP 


0007 


19CC 


DAOP 


0013 


19D3 


IOPE 


0009 


19E6 


OUSLY 






ETS 






XSAVE 


0009 


19EF 


XEXIT 






XLOAD 






GAGED 


0003 


19F8 


UNGAG 






AIP 


0004 


19FB 


AIS 


OOOD 


19FF 


AIR 


0011 


1A0C 


CS 


0008 


1A1D 


VS 






DI 






PI 






CSC 


OOOA 


1A25 


VSC 






DIC 






PIC 






CSX 


0004 


1A2F 


VSX 






DIX 






PIX 






DAC 


0007 


1A33 


CO 






DO 






PO 






QZERQ 


0002 


1A3A 


QZ010 


0006 


1A3C 


BT1BT 


0007 


1A42 


8T2BT 


0003 


1A49 


FCHAR 


0005 


1A4C 


SCALF 


0002 


1A51 


FGRID 


0007 


1A53 


FPLOT 


0004 


1A5A 


ECHAR 


0005 


1A5E 


SCALE 


0002 


1A63 


EGRID 


0008 


1A65 


EPLOT 


0005 


1A6D 


POINT 


0007 


1A72 


FCHRX 


0024 


1A79 


FCHRI 






WCHRI 






FRULE 


0009 


1A9D 


FMOVE 






FINC 






ECHRX 


0025 


1AA6 


ECHRI 






VCHRI 






ERULE 


OOOB 


1ACB 


EMOVE 






EINC 






XYPLT 


0007 


1AD6 


PLOTI 


0003 


1ADD 


PLOTS 






.TEMP 


1AE0 


1B00 


.E 


5A00 


1B00 





















PACK LABEL 
00000 



9DUMY OOAO 05A0 



.E 



OOAO 05A0 
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Continued 

LET 



PACK LABEL 
11111 

.LET 0080 
SPECL 

QUE15 0002 

IADDR 0002 

.E 1180 



0000 

0159 
0175 
0180 



SYDIR 009E 0080 

BACK 

TCONT 0003 015B 

ISBAD 0002 0177 



OUTTR 

EACLK 

TABRT 0002 015E 

CESET 0002 0179 



CHAIN 

SCHED 0014 011E 

GETVL OOOB 0160 

ABORT 0002 017B 



INTEX 






SHARE 






LEV10 


0024 


0132 


SOUT 


0003 


0156 


CONVR 


0005 


016B 


PTIME 


0005 


0170 


ENOGO 


0002 


017D 


.TEMP 


017F 


0180 



PACK LABEL 


































11111 


































.PRWS 0051 


1118 


.FIOS 


OOOF 


1169 


.MESS 


00A3 


1178 


/EPDM 


7FFF 


121B 


/EPSV 


0780 


1282 


/INSV 


48FF 


1288 


/NPSV 4180 


12C3 


FILE1 


0002 


12F8 


FILE2 


0064 


12FA 


FILE3 


0003 


135E 


COLDN 


05DC 


1361 


COLDS 


00D6 


1366 


RSTAR 0F8C 


1367 


COLDP 


10CE 


1374 


CEINT 


0A26 


1382 


DUM 


012C 


138B 


IDUM 


0094 


138C 


CDUM 


013A 


938D 


GRADE 116A 


138E 


SCAN2 


0C2E 


939C 


L0G15 


0D5E 


13A6 


L0G60 


OAEO 


13B1 


SHIFT 


OAEO 


13BA 


WEEK 


OADC 


13C3 


TREND 0B7A 


13CC 


COGLP 


101E 


13D6 


CCLSP 


0F76 


13E3 


MGRTP 


0FB4 


13F0 


CPJSP 


OFCC 


13FD 


STRND 


OBFC 


140A 


AIMON 0D90 


1414 


SCALB 


0F3A 


141F 


RCALB 


0FF6 


142C 


CMIPT 


OEEA 


1439 


LOADJ 


12DC 


1445 


9DUMY 


0123 


1455 


/SPSV 4180 


1578 


/PRSV 


4180 


15AD 


.SKEL 


0036 


15E2 


.EPRG 


0022 


1618 


/CLST 


0780 


163A 


,E 


0280 


12F8 



DUP FUNCTION COMPLETED 



// JOB 
// END 
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PROGRAM LISTING NO. 10: ON-LINE PROCESS OUTPUT 



© 



TURN OFF WRITE STORAGE PROTECT SWITCH 
ENTER TIME THROUGH DATA SWITCHES 
TIME ENTERED WAS 08.016 HOURS 

PROCESS COLD START 

PRODUCTION STOP TIME 8.00 DAY 6 



000123U5 
00000000 
NEXT JOB 123U5 QUEUE SEQUENCE U5 DAY 6 TIME 



8.02 



START OF 


GRADE 123U5 


PRODUCTION 


TIME 


1.29 START TIME 


8.03 DAY 6 


OP-GUIDE 


LIMITS FOR NEW GRADE 










POINT HIGH LIMIT 


LOW LIMIT 




POINT 


HIGH LIMIT 


LOW LIMIT 


:t 


32000.00 


-32000.00 




2 


32000.00 


-32000.00 


i 


32000.00 


-32000.00 




it 


32000.00 


-32000.00 


5 


5.1*5 


U.96 




6 


5.1*5 


It. 96 


7 


5.1*5 


U. 96 




8 


5.1*5 


U.96 


9 


5. H5 


It. 96 




10 


5.U5 


l*. 96 


11 


5.lt5 


it. 96 




12 


5.A5 


It. 96 


13 


32000.00 


-32000.00 




lit 


32000.00 


-32000.00 


15 


32000.00 


-32000.00 




16 


32000.00 


-32000.00 


17 


32000.00 


-32000.00 




18 


32000.00 


-32000.00 


19 


32000.00 


-32000.00 




20 


32000.00 


-32000.00 


21 


32000.00 


-32000.00 




22 


32000.00 


-32000.00 


23 


32000.00 


-32000.00 




2 U 


32000.00 


-32000.00 


25 


32000.00 


-32000.00 




26 


32000.00 


-32000.00 


27 


32000.00 


-32000.00 




28 


32000.00 


-32000.00 


2 9 


32000.00 


-32000.00 




30 


32000.00 


-32000.00 


31 


32000.00 


-32000.00 




32 


32000.00 


-32000.00 


33 


32000.00 


-32000.00 




3lt 


32000.00 


-32000.00 


35 


32000.00 


-32000.00 




36 


32000.00 


-32000.00 


37 


32000.00 


-32000.00 




38 


32000.00 


-32000.00 


39 


32000.00 


-32000.00 




1*0 


32000.00 


-32000.00 


CLOSED LOOP SET POINTS FOR NEW GRADE 








POINT 


SETPT 


POINT 


SETPT 


POINT 


SETPT 


POINT SETPT 


1 





2 





3 





It 


5 





6 





7 


lit 


8 86 


NORMAL SCAN DAY 6 


TIME 


8.03 









70000050 

00000000 

LOOP 7 NEW SET POINT 50 DAY 6 TIME 8.05 



NORMAL SCAN DAY 6 



TIME 



8.06 



NORMAL SCAN DAY 6 



TIME 



8.07 



NORMAL SCAN DAY 6 



TIME 



8.09 



FORMAL SCAN DAY 6 TIME 
NORMAL SCAN DAY 6 TIME 



8.12 
8.13 



LOG15 DAY 6 
OP-GUIDE POINTS 



TIME 



8.15 



POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 


U15lt.00 


2 


9731*. 00 


3 


21*. 00 


l* 


32.00 


5 


5.37 


6 


5.16 


7 


5.01 


8 


5,10 


9 


5. lit 


10 


5.28 


11 


5.00 


12 


it.98 


13 


22.00 


11* 


20.00 


15 


22.00 


16 


U2.00 


17 


71«t. 00 


18 


701*. 00 


19 


716.00 


20 


706.00 


21 


706.00 


22 


698.00 


23 


718.00 


21* 


706.00 


25 


712.00 


26 


708.00 


27 


701*. 00 


28 


711*. OC 


29 


701*. 00 


30 


718.00 


31 


706.00 


32 


701*. 00 


33 


7Ht.OO 


31* 


710.00 


35 


701*. 00 


36 


718.00 


37 


710.00 


38 


70it. 00 


39 


716.00 


itO 


706.00 


CLOSED LOOP 


POINTS 














POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 





2 





3 


75 


it 





5 





6 


5 


7 


1*9 


8 


85 



SHIFT END LOG DAY 6 



TIME 



8.15 
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f \) (Continued) 

^"NORMAL SCAN DAY 6 TIME 8.15 

NORMAL SCAN DAY 6 TIME 8.18 

NORMAL SCAN DAY 6 TIME 8.19 

NORMAL SCAN DAY 6 TIME 8.21 

NORMAL SCAN DAY 6 TIME 8 . 2^ 

NORMAL SCAN DAY 6 TIME 8.25 

NORMAL SCAN DAY 6 TIME 8.27 

NORMAL SCAN DAY 6 TIME 8.30 



LOG15 DAY 6 
OP-GUIDE POINTS 



TIME 



8.30 



POINT 

1 

5 

9 

13 

17 

21 

25 

29 

33 

37 



VALUE 

1 U162.00 

5.37 

5.1U 

18.00 

710.00 

706.00 

700.00 

702.00 

70U.00 

704.00 



CLOSED LOOP POINTS 
POINT VALUE 
1 
5 



POINT 
2 
6 
10 
14 
18 
22 
26 
30 
34 
38 

POINT 
2 
6 



VALUE 

9760.00 

5.16 

5.27 

28.00 

708.00 

704.00 

714.00 

712.00 

716.00 
714.00 

VALUE 

5 



PO I NT 
3 
7 
11 
15 
19 
23 
27 
31 

35 
39 

POINT 
3 

7 



VALUE 

30.00 

5.00 

5.00 

18.00 

706.00 

714.00 

706.00 

706.00 

708^.00 
704.00 

VALUE 
75 

49 



POINT 
4 
8 
12 
16 
20 
24 
28 
32 

36 
40 

POINT 
4 



VALUE 

40.00 

5.09 

4.99 

22.00 

710.00 

706.00 

706.00 

710.00 

712.00 
714.00 

VALUE 

85 



NORMAL SCAN DAY 6 



TIME 



8.31 



NORMAL SCAN DAY 6 



TIME 



8.33 



NORMAL SCAN DAY 6 TIME 

NORMAL SCAN DAY 6 TIME 

NORMAL SCAN DAY 6 TIME 

NORMAL SCAN DAY 6 TIME 

NORMAL SCAN DAY 6 TIME 



8.36 
8.37 
8.39 
8.42 
8.43 



LOG15 DAY 6 
OP-GUIDE POINTS 



TIME 



8.45 



POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 14158.00 


2 


9770.00 


3 


28.00 


4 


34.00 


5 


5.37 


6 


5.16 


7 


5.01 


8 


5.10 


9 


5.14 


10 


5.27 


11 


5.00 


12 


4.98 


13 


24.00 


14 


20.00 


15 


20.00 


16 


18.00 


17 


706.00 


18 


706.00 


19 


704.00 


20 


716.00 


21 


704.00 


22 


716.00 


23 


708.00 


24 


706.00 


25 


706.00 


26 


708.00 


27 


704.00 


28 


716.00 


29 


706.00 


30 


704.00 


31 


714.00 


32 


704.00 


33 


714.00 


34 


704.00 


35 


714.00 


36 


704.00 


37 


714.00 


38 


704.00 


39 


718.00 


40 


706.00 


CLOSED LOOP 


POINTS 














POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 





2 





3 


75 


4 





5 





6 


5 


7 


49 


8 


85 


NORMAL SCAN 


DAY 6 


TIME 


8.45 










NORMAL SCAN 


DAY 6 


TIME 


8.48 
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© 



1 ) (Continued) 
NORMAL SCAN 



DAY 



TIME 



8.1(9 



NORMAL SCAN DAY 6 TIME 8.51 

NORMAL SCAN DAY 6 TIME 8.54 

NORMAL SCAN DAY 6 TIME 8.55 

NORMAL SCAN DAY 6 TIME 8.57 

NORMAL SCAN DAY 6 TIME 9.00 

LOG15 DAY 6 TIME 9.00 
OP-GUIDE POINTS 



POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 


11*158.00 


2 


9818.00 


3 


26.00 


1* 


50.00 


5 


5.37 


6 


5.16 


7 


5.01 


8 


5.10 


9 


5.14 


10 


5.27 


11 


5.00 


12 


it. 98 


13 


38.00 


11* 


28.00 


15 


30.00 


16 


30.00 


17 


704.00 


18 


718.00 


19 


706.00 


20 


708.00 


n 


702.00 


22 


716.00 


23 


712.00 


2 U 


700.00 


25 


718.00 


26 


704.00 


27 


716.00 


28 


706.00 


29 


710.00 


30 


710.00 


31 


706.00 


32 


706.00 


33 


704.00 


3i» 


718.00 


35 


704.00 


36 


718.00 


37 


708.00 


38 


708.00 


39 


712.00 


ifO 


706.00 


.OSED LOOP 


PO 1 NTS 














POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 





2 





3 


75 


It 





5 





6 


5 


7 


50 


8 


85 



ONE HOUR LOG 



DAY 6 



TIME 



NORMAL SCAN DAY 6 



NORMAL SCAN DAY 6 



TIME 



TIME 



9.00 



9.01 



9.03 



NORMAL SCAN DAY 6 TIME 9.06 
NORMAL SCAN DAY 6 TIME 9.07 
NORMAL SCAN DAY 6 TIME 9.09 



NORMAL SCAN DAY 6 



NORMAL SCAN DAY 6 



TIME 



TIME 



9.12 



9.13 



LOG15 



DAY 



TIME 



9.15 



OP-GUIDE POINTS 



POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 


lltl50.00 


2 


9858.00 


3 


28.00 




4 


20.00 


5 


5.37 


6 


5.16 


7 


5.01 




8 


5.10 


9 


5. lit 


10 


5.27 


11 


5.00 




12 


4.98 


13 


22.00 


14 


26.00 


15 


24.00 




16 


26.00 


17 


708.00 


18 


708.00 


19 


706.00 




20 


704.00 


21 


714.00 


22 


706.00 


23 


708.00 




24 


706.00 


25 


708.00 


26 


708.00 


27 


706.00 




28 


708.00 


29 


704.00 


30 


716.00 


31 


708.00 




32 


710.00 


33 


706.00 


34 


706.00 


35 


704.00 




36 


714.00 


37 


706.00 


38 


704.00 


39 


716.00 




40 


704.00 


OSED LOOP 


PO 1 NTS 
















POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


PO 


INT 


VALUE 


1 





2 





3 


75 




4 





5 





6 


5 


7 


49 




8 


85 



282 



m 





5 

OP-GUIDE PT 







5 HIGH LIMIT 



1 

9 

5.10 LOW LIMIT 



U. 90 DAY 6 TIME 11.28 



NORMAL SCAN DAY 6 TIME 

HIGH LIMIT VIOLATION POINT 5 



11.30 
VALUE 



LOG15 DAY 6 

OP-GUIDE POINTS 

POINT 

1 

5 

9 

13 

17 

21 

25 

29 

33 

37 

CLOSED L 

POINT 

1 

5 



TIME 



11.30 



5.3716 



VALUE 


POINT 


VALUE 


POINT 


14154.00 


2 


9260.00 


3 


5.37 


6 


5.15 


7 


5.11* 


10 


5.27 


11 


26.00 


14 


38.00 


15 


708.00 


18 


704.00 


19 


712.00 


22 


706.00 


23 


706.00 


26 


706.00 


27 


706.00 


30 


701*. 00 


31 


702.00 


3l» 


716.00 


35 


714.00 


38 


704.00 


39 


PO 1 NTS 








VALUE 


POINT 


VALUE 


POINT 





2 





3 





6 


5 


7 


DAY 6 


TIME 


11.30 




DAY 6 


TIME 


11.32 





VALUE 

26.00 

5.01 

5.00 

24.00 

718.00 

704.00 

704.00 

714.00 

706.00 

712.00 



00000005 
00000000 

DAY 6 TIME 11.34 

OP-GUIDE POINT VALUE HIGH LIMIT LOW LIMIT 
5 5.03 5.10 4.90 



POINT 
4 
8 
12 
16 
20 
24 
28 
32 
36 
40 



VALUE POINT 

1 4 

65 8 



VALUE 

106.00 

5.09 

4.98 

20.00 

704.00 

714.00 

714.00 

706.00 

702.00 

710.00 

VALUE 



83 



FACTOR A FACTOR B 
■0.309962E-03 -0. 309947E-01 



NORMAL SCAN DAY 6 TIME 
NORMAL SCAN DAY 6 TIME 
NORMAL SCAN DAY 6 TIME 

/ 



11.34 
11.36 
11.38 
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00600010 
00 3 

TREND LOG OP-GUIDE POINT 6 PERIOD 10 
TREND OP-GUIDE 6 VALUE 5.01 

TREND OP-GUIDE R VALUE 5.01 



NORMAL SCAN DAY 3 



TIME 



TREND OP-GUIDE 

TREND OP-GUIDE 

TREND OP-GUIDE 

TREND OP-GUIDE 

TREND OP-GUIDE 

TREND OP-GUIDE 

TREND OP-GUIDE 

TREND OP-GUIDE 



DEMAND SCAN DAY 3 
HIGH LIMIT VIOLATION 
TREND OP-GUIDE fi 
TREND OP-GUIDE fi 
TREND OP-GUIDE 6 



VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 



TIME 
POINT 
VALUE 
VALUE 
VALUE 



NORMAL SCAN DAY 3 TIME 
HIGH LIMIT VIOLATION POINT 6 

TREND OP-GUIDE 6 VALUE 

TREND OP-GUIDE 6 VALUE 

TREND OP-GUIDE 6 VALUE 



TREND OP-GUIDE 6 
TREND OP-GUIDE 6 



VALUE 
VALUE 





NEXT JOB 




3 
QUEUE SEQUENCE 



NORMAL SCAN DAY 3 



TIME 



NORMAL SCAN DAY 3 TIME 
PRODUCTION STOP TIME 9.25 



9. 17 



COUNT 300 



5.1*9 
5.65 
5.61* 
5.79 
6.19 
6.56 
6.73 
6.73 



9.19 
VALUE 
6.73 
6.1*2 
5.96 



9.19 
VALUE 
5.57 
5.. 5 8 
5.12 
l*.98 
It. 98 





DAY 3 TIME 



9.21 



9.23 
DAY 3 



6.731*5 



5.5796 



9.21 



00000035 
00000300 
NEXT JOB 35 QUEUE SEQUENCE 35 DAY 3 TIME 



9.25 



/ 



V 1 



E> 



0000U530 
00000000 
NEXT JOB U530 QUEUE SEQUENCE 30 DAY 2 TIME 12.19 



NORMAL SCAN DAY 2 



TIME 



12.20 



NORMAL SCAN DAY 2 



TIME 



12.22 



NORMAL SCAN DAY 2 



TIME 



12.2l» 



START OF GRADE 1*530 PRODUCTION TIME 
OP-GUIDE LIMITS FOR NEW GRADE 



PO I NT 

1 

3 

5 

7 

9 

11 

13 

15 

17 



HIGH LIMIT 

32000.00 

32000.00 

5.55 

5.55 

5.35 

5.63 

32000.00 

32000.00 

32000.00 



t 



LOW LIMIT 

-32000.00 

-32000.00 

l*. 1*5 

l*. 1*5 

l». 1*5 

l*.l»5 

-32000.00 

-32000.00 

-32000.00 



.25 START 


TIME 12 


26 DAY 2 


POINT 


HIGH LIMIT 


LOW LIMIT 


2 




32000.00 


-32000.00 


i» 




32000.00 


-32000.00 


6 




5.U5 


l*.t*5 


8 




5.1*5 


l*.»*5 


10 




5.65 


l*. 1*5 


12 




5.62 


l*.l*5 


11* 




32000.00 


-32000.00 


16 




32000.00 


-32000.00 


18 




32000.00 


-32000.00 



284 



m 



f- 



39 32000.00 -32000.00 

CLOSED LOOP SET POINTS FOR NEW GRADE 
POINT SETPT POINT SETPT 

10 2 

5 6 



40 

POINT 
3 
7 



NORMAL SCAN 
997 09.130 
RELOAD 



DAY 3 TIME 
RELOAD 



PROCESS RESTART CHECK POINT 



NORMAL SCAN DAY 3 



TIME 



9.06 



9.07 



LOG15 DAY 3 
OP-GUIDE POINTS 



TIME 



9.07 



POINT 

1 

5 

9 

13 

17 

21 

25 

29 

33 

37 



VALUE 

14150.00 

5.03 

4.94 

30.00 

702.00 

714.00 

708.00 

716.00 

711*. 00 

704.00 



CLOSED LOOP POINTS 



POINT 
1 
5 



VALUE 





POINT 


VALUE 


POINT 


2 


9946.00 


3 


6 


5.01 


7 


10 


5.04 


11 


lit 


22.00 


15 


18 


714.00 


19 


22 


701*. 00 


23 


26 


708.00 


27 


30 


704.00 


31 


34 


710.00 


35 


38 


716.00 


39 


POINT 


VALUE 


POINT 


2 





3 


6 





7 



ONE HOUR LOG 



DAY 3 



TIME 



9.07 



SHIFT END LOG DAY 3 TIME 9.08 
NORMAL SCAN DAY 3 TIME 9.09 



DEMAND SCAN DAY 3 TIME 9.10 
HIGH LIMIT VIOLATION POINT 5 VALUE 



32000.00 



■32000.00 



SETPT POINT SETPT 

4 

70 8 29 



VALUE 

24.00 

4.99 

4.98 

24.00 

706.00 

716.00 

708.00 

712.00 

704.00 

704.00 

VALUE 
75 
69 



7.3461 



DEMAND SCAN DAY 3 TIME 

f 



9.10 



POINT 
4 
8 
12 
16 
20 
24 
28 
32 
36 
40 

POINT 
4 



VALUE 

-100.00 

4.90 

4.98 

26.00 

704.00 

708.00 

704.00 

702.00 

716.00 

718.00 

VALUE 



29 



^ 
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ta 



-32000.00 
-32000.00 
-32000.00 
-32000.00 
-32000.00 
-32000.00 
-32000.00 
-32000.00 
-32000.00 
-32000.00 
-32000.00 
-32000.00 

CLOSED LOOP SET POINTS FOR NEW GRADE 
POINT SETPT POINT SETPT 

10 2 

5 6 



17 


32000 


.00 


19 


32000 


.00 


21 


32000 


00 


23 


32000 


00 


25 


32000 


00 


2 7 


32000 


00 


29 


32000 


00 


31 


32000 


00 


33 


32000 


00 


35 


32000 


00 


37 


32000 


00 


39 


32000 


00 



18 
20 
22 
24 

26 
28 
30 
32 
34 
36 
38 
40 

POINT 
3 
7 




■32000.00 




SETPT POINT SETPT 

4 

70 8 29 



NORMAL SCAN DAY 



TIME 



NORMAL SCAN DAY 4 TIME 
NORMAL SCAN DAY I* TIME 
NORMAL SCAN DAY 4 TIME 



NORMAL SCAN DAY 4 TIME 
F94 13.974 0F50 

RESTART 



NORMAL SCAN DAY 4 



TIME 



13.1»8 
13.50 
13.52 
13. 5l» 

13.56 

13.58 



LOG15 DAY U 
OP-GUIDE POINTS 



TIME 



14.00 



POINT 




VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 




14156.00 


2 


9724.00 


3 


34.00 


4 


24.00 


5 




4.98 


6 


4.98 


7 


5.00 


8 


4.90 


9 




4.94 


10 


5.04 


11 


4.98 


12 


4.98 


13 




28.00 


14 


26.00 


15 


14.00 


16 


18.00 


17 




706.00 


18 


706.00 


19 


708.00 


20 


706.00 


21 




706.00 


22 


704.00 


23 


716.00 


24 


708.00 


25 




706.00 


26 


704.00 


27 


714.00 


28 


706.00 


29 




704.00 


30 


716.00 


31 


704.00 


32 


712.00 


33 




704.00 


34 


714.00 


35 


708.00 


36 


702.00 


37 




712.00 


38 


704.00 


39 


716.00 


40 


704.00 


CLOSED LOOP 


POINTS 














POINT 




VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 







2 





3 





4 





5 







6 





7 


70 


1* 


29 


ONE HOUR 


LOG DAY 


4 TIME 


14.00 











NORMAL SCAN DAY 4 TIME 14.00 
NORMAL SCAN DAY 4 TIME 14.02 

f 



^ 



286 



I® 



■f 



■^ 



ONE HOUR LOG DAY 3 TIME 9.00 

NORMAL SCAN DAY 3 TIME 9.00 



70000095 

00000000 

LOOP 7 NEW SET POINT 95 DAY 3 TIME 9.02 



NORMAL SCAN DAY 3 TIME 9.02 

CE UNMASK CORE LOAD--PRESS START TO EXIT FROM CORE LOAD 

CEI 09.070 

550 ON ERR CNTRS 

551 ON 1«*U3 



SS2 ON 


2310 




SS3 ON 


1053 




2310 






UNIT 


JSER 


ORIGINAL 


1 


00 


01 


2 


02 


02 


3 


00 


00 


2310 






UNIT 


USER 


ORIGINAL 


1 


01 


01 


2 


02 


02 


3 


00 


00 


SW 1 TCH 


PACKS 





NORMAL SCAN DAY 3 



TIME 



9.0l» 



START OF GRADE 85 PRODUCTION TIME 

OP-GUIDE LIMITS FOR NEW GRADE 



0.20 START TIME 



9.05 DAY 



POINT 

1 

3 

5 

7 

9 

11 

13 

15 

17 

19 

21. 



HIGH LIMIT 
32000.00 
32000.00 
5. 
5, 
5, 
5. 

32000.00 
32000.00 
32000.00 
32000.00 



50 
,50 
,50 
,50 



LOW LIMIT 

-32000.00 

-32000.00 

U. 50 

It. 50 

i». 50 

it. 50 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

■-^ann.nn 



POINT 

2 

i» 

6 

8 

10 

12 

lit 

16 

18 

20 

22- 



HIGH LIMIT 

32000.00 

32000.00 

5.50 

5.50 

5.50 

5 . 50 

32000.00 

32000.00 

32000.00 

32000.00 

_ ys?nr*o. nn 



LOW LIMIT 

-32000.00 

-32000.00 

It. 50 

it. 50 

it. 50 

it. 50 

-32000.00 

-32000.00 

-32000.00 

-32000.00 

-x?nnn nn 
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I® 



■/■ 



CLOSED LOOP POINTS 

POINT VALUE 

1 

5 



POINT 


VALUE 


2 





6 






POINT VALUE 
3 

7 29 



POINT 
1* 



VALUE 



70 



ONE HOUR LOG DAY 2 TIME 8.00 

START OF GRADE 95 PRODUCTION TIME 0.20 START TIME 



8.0U DAY 2 



LOG15 



DAY 



TIME 



8.15 



OP-GUIDE 


POINTS 














POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 


14154.00 


2 


9454.00 


3 


26.00 


4 


-62.00 


5 


4.97 


6 


4.98 


7 


5.00 


8 


4.90 


9 


4.94 


10 


5.01+ 


11 


4.98 


12 


4.98 


13 


0.19 


14 


0.02 


15 


0.57 


16 


-0.00 


17 


712,00 


18 


710.00 


19 


710.00 


20 


708.00 


21 


710.00 


22 


710.00 


23 


710.00 


24 


712.00 


25 


708,00 


26 


712.00 


27 


708.00 


28 


706.00 


29 


710,00 


30 


708.00 


31 


706.00 


32 


710.00 


33 


708,00 


34 


708.00 


35 


708.00 


36 


708.00 


37 


708,00 


38 


706.00 


39 


710.00 


40 


710.00 


CLOSED LOOP POINTS 














POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 





2 


-1 


3 





4 





5 





6 





7 


69 


8 


30 



SHIFT END LOG DAY 2 TIME 8.15 

START OF GRADE 96 PRODUCTION TIME 0.20 START TIME 8.25 DAY 



LOG 15 



DAY 



TIME 



8.30 



OP-GUIDE 


POINTS 














PO 1 NT 




VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 




14154.00 


2 


9454.00 


3 


24.00 


4 


-80.00 


5 




4.97 


6 


4.98 


7 


5.00 


8 


4.90 


9 




4.94 


10 


5.04 


11 


4.98 


12 


4.98 


13 




0.88 


14 


0.20 


15 


0.40 


16 


-0.00 


17 




71U.00 


18 


710.00 


19 


710.00 


20 


708.00 


21 




716.00 


22 


712.00 


23 


710.00 


24 


710.00 


25 




714.00 


26 


710.00 


27 


706.00 


28 


714.00 


29 




708.00 


30 


708.00 


31 


712.00 


32 


714.00 


33 




708.00 


34 


712.00 


35 


712.00 


36 


714.00 


37 




706.00 


38 


710.00 


39 


712.00 


40 


712.00 


CLOSED LOOP 


POINTS 














POINT 




VALUE 


POINT 


VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 







2 





3 





4 





5 







6 





7 


29 


8 


70 



MONDAY MORNING REPORT DAY 2 TIME 8.30 

START OF GRADE 97 PRODUCTION TIME 0.20 START TIME 



1.45 DAY 2 



LOG15 DAY 



TIME 



8.45 



OP-GUIDE 

POINT 

1 

5 

9 

13 

17 

21 

25 

29 

33 

37 

CLOSED 

POINT 

1 

5 



,97 
,94 



POINTS 
VALUE 
14156.00 
4, 
4, 

0.71 
706.00 
712.00 
710.00 
710.00 
712.00 
710.00 
LOOP POINTS 
VALUE 





POINT 
2 
6 
10 
14 
18 
22 
26 
30 
34 
38 

POINT 
2 
6 



VALUE 
9444.00 

4, 

5. 



,98 
,04 



0.36 
708.00 
716.00 
716.00 
714.00 
710.00 
,10.00 

VALUE 





POINT 
3 
7 
11 
15 
19 
23 
27 
31 
35 
39 

POINT 
3 
7 



VALUE 
36.00 
5.00 
4.98 



0.69 
712.00 
710.00 
714.00 
710.00 
710.00 
710.00 



VALUE 



36 



POINT 
4 
8 
12 
16 
20 
24 
28 
32 
36 
40 

POINT 
4 



VALUE 

-82.00 

4.90 

4.98 

-0.00 

712.00 

712.00 

712.00 

710.00 

712.00 

710.00 

VALUE 



63 



+ 
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A 








A 








[ Q J (Continue 


d) * 








V 








^-^LOGIS 


DAY 2 TIME 9 


.00 












OP-GUIDE 


POINTS 
















POINT 


VALUE 


POINT 




VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 


1U156.00 


2 




91*38.00 


3 


22.00 


l* 


-78.00 


5 


it. 97 


6 




i*.98 


7 


5.00 


8 


l».90 


9 


it. 91* 


10 




5.01* 


11 


i*. 98 


12 


U.98 


13 


0.28 


11* 




0.36 


15 


0.67 


16 


-0.00 


17 


708.00 


18 




711*. 00 


19 


708.00 


20 


710.00 


21 


7U.00 


22 




711*. 00 


23 


710.00 


21* 


712.00 


25 


712.00 


26 




710.00 


27 


712.00 


28 


711*. 00 


29 


710.00 


30 




708.00 


31 


712.00 


32 


712.00 


33 


708.00 


31* 




708.00 


35 


710.00 


36 


712.00 


37 


708.00 


38 




711*. 00 


39 


708.00 


1*0 


711*. 00 


CLOSED 


.OOP POINTS 
















POINT 


VALUE 


POINT 




VALUE 


POINT 


VALUE 


POINT 


VALUE 


1 





2 




-1 


3 





it 





5 





6 







7 


69 


8 


30 


ONE HOUR 


LOG DAY 


2 TIME 


9.00 










PRODUCTION STOP 


riME 9. 


10 


DAY 2 


















— nA 






f 












1 






\T 





© 



// JOB A 
9)// * UPDATE A PROCESS JOB FILE ONI DISK 
// XEO LOADJ FX 



PROCESS 


JOB FILE LOAD 


TIME 11.14 








GRADE NUMBER 12345 


PRODUCTION TIME 


1.30 






OP-GUIDE LIMITS FOR GRADE 








POINT 


HIGH LIMIT 


LOW LIMIT 


POINT 


HIGH LIMIT 


LOW LIMIT 


1 


32000.00 


-32000.00 


2 


32000.00 


-32000.00 


3 


32000.00 


-32000.00 


4 


32000.00 


-32000.00 


5 


5.45 


4.96 


6 


5.45 


4.96 


7 


5.45 


4.96 


8 


5.45 


4.96 


9 


5.45 


4.96 


10 


5.45 


4.96 


11 


5.45 


4.96 


12 


5.45 


4.96 


13 


32000.00 


-32000.00 


14 


32000.00 


-32000.00 


15 


32000.00 


-32000.00 


16 


32000.00 


-32000.00 


17 


32000.00 


-32000.00 


18 


32000.00 


-32000.00 


19 


32000.00 


-32000.00 


20 


32000.00 


-32000.00 


21 


32000.00 


-32000.00 


22 


32000.00 


-32000.00 


23 


32000.00 


-32000.00 


24 


32000.00 


-32000.00 


25 


32000.00 


-32000.00 


26 


32000.00 


-32000.00 


27 


32000.00 


-32000.00 


28 


32000.00 


-32000.00 


29 


32000.00 


-32000.00 


30 


32000.00 


-32000.00 


31 


32000.00 


-32000.00 


32 


32000.00 


-32000.00 


33 


32000.00 


-32000.00 


34 


32000.00 


-32000.00 


35 


32000.00 


-32000.00 


36 


32000.00 


-32000.00 


37 


32000.00 


-32000.00 


38 


32000.00 


-32000.00 


39 


32000.00 


-32000.00 


40 


32000.00 


-32000.00 


CLOSED LOOP SET POINTS FOR GRADE 








POINT 


SETPT 


POINT SETPT 


POINT 


SETPT 


POINT SETPT 


1 





2 


3 





4 


5 





6 


7 


15 


8 86 



PROCESS JOB FILE LOAD TIME 11.14 
GRADE NUMBER 4530 PRODUCTION TIME 
OP-GUIDE LIMITS FOR GRADE 



1.25 



POINT 


HIGH LIMIT 


LOW LIMIT 


POINT 


HIGH LIMIT 


LOW LIMIT 


1 


32000.00 


-32000.00 


2 


32000.00 


-32000.00 


3 


32000.00 


-32000.00 


4 


32000.00 


-32000.00 


5 


5.55 


4.45 


6 


5.45 


4.45 


7 


5.55 


4.45 


8 


5.45 


4.45 


9 


5.35 


4.45 


10 


5.65 


4.45 


11 


5.63 


4.45 


12 


5.62 


4.45 


13 


32000.00 


-32000.00 


14 


32000.00 


-32000.00 


15 


32000.00 


-32000.00 


16 


32000.00 


-32000.00 


17 


32000.00 


-32000.00 


18 


32000.00 


-32000.00 


19 


32000.00 


-32000.00 


20 


32000.00 


-32000.00 


21 


32000.00 


-32000.00 


22 


32000.00 


-32000.00 


23 


32000.00 


-32000.00 


24 


32000.00 


-32000.00 


25 


32000.00 


-32000.00 


26 


32000.00 


-32000.00 


27 


32000.00 


-32000.00 


28 


32000.00 


-32000.00 


29 


32000.00 


-32000.00 


30 


32000.00 


-32000.00 


31 


32000.00 


-32000.00 


32 


32000.00 


-32000.00 


33 


32000.00 


-32000.00 


34 


32000.00 


-32000.00 


35 


32000.00 


-32000.00 


36 


32000.00 


-32000.00 


37 


32000.00 


-32000.00 


38 


32000.00 


-32000.00 


39 


32000.00 


-32000.00 


40 


32000.00 


-32000.00 


CLOSED 


.OOP SET POINTS FOR GRADE 








POINT 


SETPT 


POINT SETPT 


POINT 


SETPT 


POINT SETPT 


1 





2 


3 





4 


5 





6 


7 


65 


8 83 
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9 ) (Continued) 



PROCESS JOB FILE LOAD TIME 11.14 
GRADE NUMBER 4531 PRODUCTION TIME 
OP-GUIDE LIMITS FOR GRADE 



POINT 


HIGH LIMIT 


LOW LIMIT 


1 


32000.00 


-32000.00 


3 


32000.00 


-32000.00 


5 


5.23 


5.20 


7 


5.23 


5.21 


9 


32000.00 


-32000.00 


11 


32000.00 


-32000.00 


13 


32000.00 


-32000.00 


15 


32000.00 


-32000.00 


17 


32000.00 


-32000.00 


19 


32000.00 


-32000.00 


21 


32000.00 


-32000.00 


23 


32000.00 


-32000.00 


25 


32000.00 


-32000.00 


27 


32000 00 


-32000.00 


29 


32000.00 


-32000.00 


31 


32000.00 


-32000.00 


33 


32000.00 


-32000.00 


35 


32000.00 


-32000.00 


37 


32000.00 


-32000.00 


39 


32000.00 


-32000.00 



CLOSED LOOP SET POINTS FOR GRADE 

POINT SETPT POINT SETPT 
10 2 

5 6 

PROCESS JOB FILE LOAD TIME 11.14 

GRADE NUMBER 4532 PRODUCTION TIME 5.45 

OP-GUIDE LIMITS FOR GRADE 



POINT 


HIGH LIMIT 


LOW LIMIT 


1 


14200.00 


14100.00 


3 


30.00 


20.00 


5 


5^10 


4.90 


7 


5.10 


4.90 


9 


5.10 


4.90 


11 


5.10 


4.90 


13 


25.00 


15.00 


15 


32000.00 


-32000.00 


17 


32000.00 


-32000.00 


19 


32000.00 


-32000.00 


21 


32000.00 


-32000.00 


23 


32000.00 


-32000.00 


25 


32000.00 


-32000.00 


27 


32000.00 


-32000.00 


29 


32000.00 


-32000.00 


31 


720.00 


700.00 


33 


32000.00 


-32000.00 


35 


32000.00 


-32000.00 


37 


32000.00 


-32000.00 


39 


720.00 


700.00 



CLOSED LOOP SET POINTS FOR GRADE 

POINT SETPT POINT SETPT 
10 2 

5 6 

PROCESS JOB FILE LOAD TIME 11.15 



// JOB A 

// END OF ALL JOBS FOR NOW 



POINT 


HIGH LIMIT 


LOW LIMIT 


2 


32000.00 


-32000.00 


4 


32000.00 


-32000.00 


6 


32000.00 


-32000.00 


8 


32000.00 


-32000.00 


10 


32000.00 


-32000.00 


12 


32000.00 


-32000.00 


14 


32000.00 


-32000.00 


16 


32000.00 


-32000.00 


18 


32000.00 


-32000.00 


20 


32000.00 


-32000.00 


22 


32000.00 


-32000.00 


24 


32000.00 


-32000.00 


26 


32000.00 


-32000.00 


28 


32000.00 


-32000.00 


30 


32000.00 


-32000.00 


32 


32000.00 


-32000.00 


34 


32000.00 


-32000.00 


36 


32000.00 


-32000.00 


38 


32000.00 


-32000.00 


40 


32000.00 


-32000.00 


POINT 


SETPT 


POINT SETPT 


3 





4 


7 


45 


8 47 



POINT 


HIGH LIMIT 


LOW LIMIT 


2 


9890.00 


9880.00 


4 


-10.00 


-30.00 


6 


5.10 


4.90 


8 


5.10 


4.90 


10 


5. 10 


4.90 


12 


5.10 


4.90 


14 


25.00 


15.00 


16 


32000.00 


-32000.00 


18 


32000.00 


-32000.00 


20 


32000.00 


-32000.00 


22 


32000.00 


-32000.00 


24 


32000.00 


-32000.00 


26 


32000.00 


-32000.00 


28 


32000.00 


-32000.00 


30 


720.00 


700.00 


32 


720.00 


700.00 


34 


32000.00 


-32000.00 


36 


32000.00 


-32000.00 


38 


720.00 


700.00 


40 


720.00 


700.00 


POINT 


SETPT 


POINT SETPT 


3 





4 


7 


98 


8 12 



290 



APPENDIX A. TSX SYSTEM COMPOSITION AND CAPABILITIES 





ON-LINE SYSTEM 


NONPROCESS 
MONITOR 


OFF-LINE 
SYSTEM 




WITH 
TIME-SHARING 


WITHOUT 
TIME-SHARING 


FIXED CORE CONTAINS 


SKELETON 


SKELETON 


TASK 


TASK 


SKELETON AREA OF DISK 
CONTAINS 


SKELETON 


SKELETON 


TASK 


SKELETON 


TSC IN FIXED CORE 


YES 


NO 


NO 


NO 


NONPROCESS MONITOR (NPM) 
FUNCTIONS 


YES 


NO 


YES 


YES 


CORE LOAD BUILD - 
NONPROCESS CORE LOADS 


YES 


NO 


YES 


YES 


CORE LOAD BUILD - 
PROCESS CORE LOADS 


YES 


NO 


NO 


YES 


RESULT OF COLD START 


SYSTEM SKELETON 


SYSTEM SKELETON 


TASK 


SYSTEM SKELETON 


EXECUTE PROCESS CORE LOADS 


YES 


YES 


NO 


NO 


EXECUTE PROCESS INTERRUPTS 


YES 


YES 


NO 


NO 


EXECUTE PROGRAMMED 
INTERRUPTS 


YES 


YES 


NO 


NO 


EXECUTE TIMER INTERRUPTS 


YES 


YES 


NO 


NO 


DATA PROCESSING I/O 
FUNCTIONS 


YES 


YES 


YES 


YES 


PROCESS I/O FUNCTIONS 


YES 


YES 


YES 


NO 


NPM ERROR MESSAGES 


YES 


NO 


YES 


YES 


TASK ERROR MESSAGES 


NO 


NO 


YES 


YES 


EAC ERROR MESSAGES 


YES 


YES 


NO 


NO 


CONTROL OF TASK FUNCTIONS 


NO 


NO 


YES 


YES 


CONTROL OF NPM FUNCTIONS 


TSC, NONPROCESS 
SUPERVISOR AND JOB 
STACK 


NON-APPLICABLE 


NONPROCESS SUPERVISOR 
AND JOB STACK 


NONPROCESS SUPERVISOR 
AND JOB STACK 


CONTROL OF PROCESS 
FUNCTIONS 


SYSTEM SKELETON 


SYSTEM SKELETON 


NON-APPLICABLE 


NON-APPLICABLE 


METHOD OF CALLING CORE 
LOADS 


NAME CARD, INTERRUPTS, 
CALLS TO: CHAIN, VIAQ, 
SPECL, BACK, DPART, 
INTEX, SHARE, //XEQ 
AND LINK 


NAME CARD, INTERRUPTS, 
CALLS TO: CHAIN, VIAQ, 
SPECL, BACK, DPART, AND 
INTEX 


//XEQ AND LINK 


NON-APPLICABLE 


VARIABLE AREA OF CORE 
CONTAINS 


PROCESS CORE LOADS, 
NONPROCESS CORE 
LOADS, NONPROCESS 
MONITOR, EDP 
PROGRAMS, AND COLD 
START 


PROCESS CORE LOADS, 
EDP PROGRAMS, AND 
COLD START 


NONPROCESS MONITOR, 
SYSTEM LOADER, TASK 
UTILITIES, NONPROCESS 
CORE LOADS AND 
SKELETON BUILDER 


NONPROCESS MONITOR, 
TASK UTILITIES, SYSTEM 
LOADER AND SKELETON 
BUILDER 
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APPENDIX B. SUMMAKY OF TSX CALL STATEMENTS 



Where Used Code 
I 

M 

M 



M 



M, I, N* t C 



M, I, N*, C 



M, I, N*, C 

M, I, N*, C 

M 

M, I, C 



Statement 
CALL INTEX 
CALL CHAIN (NAME) 

CALL SPECL (NAME) 
CALL BACK 



CALL QIFON (NAME, P, 
L, I, E) 



CALL CLEAR (M, L, I, 
..... L, I,) 



CALL QUEUE (NAME, 
P, E) 

CALL UNQ (NAME, P) 



CALL VIAQ 



CALL MASK (I, J) 



Description 

Causes return of control to MIC on interrupt exit. 

Mainline core load designated by NAME is loaded and 
executed. 

Mainline core load containing this call is saved on disk. 
Mainline core load designated by NAME is loaded and 
executed. 

Mainline core load saved as a result of a CALL SPECL 
is restored to core and execution continues with the 
statement following the special call. 

Specified interrupts, that have been recorded, will be 
queued in the order called by the CALL QIFON statement 
and according to its designated parameters. 

NAME - name of the mainline core load. 

P - execution priority of the named mainline core load. 

L - interrupt level or indicator. 

I - PISW bit position indicator or CALL COUNT 

indicators. 
E - error parameter to specify the action to be taken 

if queue is full. 

Specified interrupts will be cleared of recorded status 
whether they were recorded or not. M specifies the 
number of L and I parameters to follow. L and I are 
the same as designated for CALL QIFON. If M = 0, 
all recorded status is cleared. 

Mainline core load designated by NAME is entered in 
core load queue with priority P and error option E. 

Mainline core load designated by priority P and NAME 
will be removed from the core load queue. 

Last logical statement of a mainline core load,, The 
first core load, of the highest priority entered in the 
queue, is loaded and executed. 

Interrupt levels specified by data statements for I and J 
are masked (no unmasking occurs). 
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Where Used Code 



Statement 



Description 



M, I, C 

M, I, N*, C 

M, I, C 

M, I, N, C 
M, I, N*, C 

M, I, N*, C 



M, X 

I, C 

M, I, N*, C 
M, I, N*, C 
M, I, C 

M, I, C 



CALL UNMK (I, J) 



CALL SAVMK (I, J) 



CALL RESMK (I, J) 



CALL OPMON 

CALL TIMER (NAME, I, 
INT) 



CALL COUNT (IN, I, INB) 



CALL SHARE (I) 

CALL ENDTS 
CALL SETCL (I) 
CALL CLOCK (I) 
CALL LEVEL (L) 

CALL DP ART 



Interrupt levels specified by data statements for I and J 
are unmasked (no masking occurs). 

Interrupt level mask status is saved in I and J (no 
masking or unmasking occurs). 

Interrupt levels are masked according to I and J (all 
others are unmasked). 

Operation Monitor is reset. 

Interval timer specified by I (1 or 2) is set up to count 
INT intervals. After INT intervals have elapsed, ITC 
will branch to NAME (user's subprogram). 

Program interval timer specified by I (1, 2, 3, . . . , 9) 
is set to count INB intervals. Upon completion of INB 
intervals, the ITC will branch to the subroutine 
specified by IN (IN specifies a subroutine number from 
- 31). 

The present core load is saved and nonprocess time-* 
sharing is set up for I timed intervals. 

Time-sharing is terminated. 

Programmed clock is set to equal I. 

Clock is read into I. 

Calls the programmed interrupt specified by the hard- 
ware level L (L must be between -23). 

Tests the operation level of present use and, if an 
interrupt level exists, executes a CALL INTEX; other- 
wise a CALL VIAQ is executed. 



M 
I 

N 
C 

* 

X 



- Mainline core loads only. 

- Interrupt core loads only. 

- Nonprocess core loads only. 

- Combination mainline and interrupt core load. 

- Must be an XEQ from core load area (INTERVAL TIMER CONTROL REQUIRED) 

- Must be an XEQ from core load area (TIME -SHARING REQUIRED) 
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APPENDIX C. ASSEMBLER LANGUAGE TSX CALLS 



This section describes the Assembler language 
equivalent of the FORTRAN CALL statements pro- 
vided in the time-sharing executive system. 



DC XX The number of intervals to be 

counted before the subprogram 
is executed. 



Machine Interval Timers 

The Assembler language statements to call the 
TIMER subprogram are: 

CALL TIMER 
CALL NAME 
DC A 
DC B 

where NAME is the name of the subprogram to be 
executed when the time specified by B has elapsed. 
A and B must be defined as: 



A DC 0-31 Number of the subprogram to 

be executed when the time has 
elapsed. 

The Assembler language statements to be used to 
read and to set the programmed real-time clock are: 

Read: 



CALL CLOCK 
DC A 

where A is the address of the location where the con- 
tents of the clock are to be stored. 



A DC 



B DC 



1 
or 

2 

XX 



For machine interval timer 
(A). 

For machine interval timer 
(B). 

The number of intervals to be 
counted before the subprogram 
is executed. 



Programmed Interval Timers 

The Assembler language statements to call the 
COUNT subprogram are: 

CALL COUNT 
DC A 
DC B 
DC C 



Set : 

CALL SETCL 
DC A 

where A must be defined as: 



DC 



XXXX 



The time to be used for setting 
the clock. The time must be 
represented in hours and 
thousandths of hours (i. e. , 
00000 through 23999). 



PSC Statements 



The following Assembler language statements are 
equivalent to the FORTRAN language calls for core 
load sequencing. 



where the parameters A, B, and C must be defined 
as: 



B DC 1-9 



Programmed timer number 



CALL BACK 
CALL ENDTS 
CALL VIAQ 
CALL DPART 



No parameters are required 
for these calls. 
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Call Chain: 



Call Time-Share: 



CALL CHAIN 
CALL NAME 

where NAME is the name of the core load to be 
executed. 



Call Special : 

CALL SPECL 
CALL NAME 

where NAME is the name of the core load to be 
executed. 



Call Queue :' 

CALL QUEUE 
CALL NAME 
DC A 
DC B 

where NAME is the name of a core load to be added 
to the queue. A and B must be defined as follows. 

A DC 1-32,767 Priority Number 

B DC 1-32,766 Replace the lowest priority 

entry on error condition 
or 



CALL SHARE 
DC A 

where A must be defined as follows: 

A DC XX 



Number of programmed timer 
base intervals to be used for 
nonprocess operations. 



Call Programmed Settable Interrupts: 

CALL LEVEL 
DC A 

where A must be defined as: 

A DC 0-23 



User specified hardware level 
to cause interrupt 



Interrupt Calls 

The following Assembler language statements are 
used to service and clear recorded interrupts. 



Call Interrupt Exit: 

CALL INTEX No parameters are required for 
this call 






Ignore the call on error 






or 


condition 


Service Recorded Interrupts 


32,767 


Restart on error condition 










CALL QIFON 






CALL NAME 


Call Unqueue: 




DC 


A 






DC 


B 


CALL UNQ 




DC 


C 


CALL NAME 




DC 


D 


DC A 









where NAME is the name of a core load whose entry 
is to be removed from the queue. A must be defined 
as follows: 

A DC 1-32,767 Priority Number 



where NAME is the name of the core load to be 
serviced if recorded. A, B, C, and D must be 
defined as follows: 
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A DC 


XX 


Priority number 


B DC 


XX 


Interrupt level number or 
indicator 


C DC 


XX 


Position within PISW or 
indicator 


D DC 


1-32,767 


Replace lowest priority entry 




or 


on error condition 







Ignore the call on error 




or 


condition 




32,767 


Restart on error condition 


Clear Recorded Interrupts: 


CALL CLEAR 


CALL CLEAR 


DC 


A 


DC A (when A = 0) 


DC 


B(l) 




DC 


C(l) 




DC 


B(2) 




DC 


C(2) 





A DC /0000 Levels to masked. A represents 
the first 14 levels (0 through 13). 
For example, to mask levels 
- 13, use: /FFFC 

B DC /0000 Levels to be masked. B re- 
presents the second 10 levels 
(14 through 23). For example, 
to mask levels 14 through 23, 
use: /FFCO 



Unmask: 

CALL UNMK 
DC A 
DC B 

where A and B must be defined the same as shown for 
CALL MASK. The designated levels are unmasked. 



where A, B, and C must be defined as follows: 



Save Mask: 



A DC XX 

B DC XX 
C DC XX 



Number of Bs and Cs which 
follow. If zero, all recorded 
status is cleared 
Interrupt level number or 
indicator. Not used if A = 
Position within PISW or 
indicator. Not used if A = 



CALL 

DC 

DC 



SAVMK 

A 

B 



where A and B are the addresses of the core storage 
words where the contents of the interrupt mask 
register are to be placed: 



Miscellaneous Subroutines: 



Restore Mask: 



The following Assembler language statements are 
used to link the miscellaneous subroutines. 



CALL 

DC 

DC 



RESMK 

A 

B 



Mask: 



CALL MASK 
DC A 
DC B 



where A and B are the levels defined for the CALL 
MASK or CALL UNMK. 



Reset Operations Monitor: 



CALL OPMON 



where A and B must be defined as: 



No parameters are required 
for this call 
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APPENDIX D. CONTENTS OF THE FIXED AREA OF CORE 



Address 


Description of Use 


Address 


Description of Use 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


00000 


0000 


Reserved 


00038 


0026 


Physical 1443-1 device table 
address 


00001 


0001 


Branch instruction (/4400) 














00039 


0027 


Physical 1443-2 device table 


00002 


0002 


CE routine entry address 
(EACA) 






address 








00040 


0028 


Beginning address of MIC 


00003 


0003 


Not used 








00004 


0004 


Interval timer A 


00041 


0029 


User time-sharing time 








00042 


002A 


Constant: -1 


00005 


0005 


Interval timer B 














00043 


002B 


Constant: -10 


00006 


0006 


Interval timer C 














00044 


002C 


Entry address to 1053 no 
response subroutine 


00007 


0007 


General I/O busy indicator 






00008 


0008 


Internal error interrupt 
branch address 


00045 


002 D 


Timer busy indicators 








00046 


002E 


Mask register (0-13) 


00009 


0009 


Trace interrupt branch 












address 


00047 


002F 


IOCC control word for 
UNMK1 


00010 


000A 


Mainline return address 












from CE routine 


00048 


0030 


Mask register (14-23) 


00011 


000B 


Level interrupt address 


00049 


0031 


IOCC control word for 
UNMK2 


00012 


oooc 


Level 1 Interrupt address 














00050 


0032 


Mask levels 0-13 


00013 


000D 


Level 2 interrupt address 














00051 


0033 


IOCC for levels 0-13 


00014 


000E 


Level 3 interrupt address 














00052 


0034 


Mask levels 14-23 


00015 


000F 


Level 4 interrupt address 














00053 


0035 


IOCC for levels 14-23 


00016 


0010 


Level 5 interrupt address 














00054 


0036 


Pseudo accumulator (WK4) 


00017 


0011 


Level 6 interrupt address 














00055 


0037 


Pseudo accumulator (WK5) 


00018 


0012 


Level 7 interrupt address 








00019 


0013 


Level 8 interrupt address 


00056 


0038 


1 = time-sharing is in 
progress; 


00020 


0014 


Level 9 interrupt address 






= not in progress 


00021 


0015 


Level 10 interrupt address 


00057 


0039 


Address of magnetic tape 
sense control word 


00022 


0016 


Level 11 interrupt address 














00058 


003A 


1 = ITC is in system 


00023 


0017 


Level 12 interrupt address 






director; 

= ITC is not included 


00024 


0018 


Level 13 interrupt address 














00059 


003 B 


Non-zero indicates TASK is 


00025 


0019 


Level 14 interrupt address 






in core 


00026 


001 A 


Level 15 interrupt address 


00060 


003C 


Address of timer A sub- 
routine 


00027 


001 B 


Level 16 interrupt address 














00061 


003 D 


Address of timer B sub- 


00028 


001C 


Level 17 interrupt address 






routine 


00029 


001 D 


Level 18 interrupt address 


00062 


003 E 


Program timer 1 


00030 


001E 


Level 19 interrupt address 


00063 


003 F 


Timer 1 subprogram number 
(1-32) 


00031 


001F 


Level 20 interrupt address 














00064 


0040 


Timer 1 on-off branch 


00032 


0020 


Level 21 interrupt address 














00065 


0041 


Program timer 2 


00033 


0021 


Level 22 interrupt address 














00066 


0042 


Timer 2 subprogram number 


00034 


0022 


Level 23 interrupt address 






(1-32) 


00035 


0023 


1 = Loop on 1443 not ready 
during nonprocess program; 


00067 


0043 


Timer 2 on-off branch 






= go to EAC 


00068 


0044 


Program timer 3 


00036 


0024 


Logical 1443-1 device table 
address 


00069 


0045 


Timer 3 subprogram number 
(1-32) 


00037 


0025 


Logical 1443-2 device table 
address 


00070 


0046 


Timer 3 on-off 
branch 
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Address 




Address 


Description of Llse 






Description of Use 




Hexadecimal 


Decimal 


Hexadecimal 




Decimal 




00071 


0047 


Program timer 4 


00105 


0069 


Interrupt core load ending 
address 


00072 


0048 


Timer 4 subprogram number 












(1-32) 


00106 


006A 


CALL CHAIN entry 


00073 


0049 


Timer 4 on-off branch 


00107 


006B 


System director ending 
address 


00074 


004A 


Program timer 5 














00108 


006C 


Mask word out-of-core 


00075 


004B 


Timer 5 subprogram number 
(1-32) 






interrupts (0-13) 








00109 


006D 


Mask word for out-of-core 


00076 


004C 


Timer 5 on-off branch 






interrupts (14-23) 


00077 


004D 


Program timer 6 


00110 


006E 


System mask save area (0-13) 


00078 


004E 


Timer 6 subprogram number 
(1-32) 


00111 


006F 


System mask save area (14-23) 








00112 


0070 


1 = Al basic overlap feature 


00079 


004F 


Timer 6 on-off branch 






available 


00080 


0050 


Program timer 7 


00113 


0071 


1 = Al expander overlap 
feature available 


00081 


0051 


Timer 7 subprogram number 












(1-32) 


00114 


0072 


Entry address for I/O error 


00082 


0052 


Timer 7 on-off branch 


00115 


0073 


EAC error code 


00083 


0053 


Program timer 8 


00116 


0074 


Error information 


00084 


0054 


Timer 8 subprogram number 
(1-32) 


00117 


0075 


Error information 








00118 


0076 


Error information 


00085 


0055 


Timer 8 on-off branch 














00119 


0077 


Error information 


00086 


0056 


Program timer 9 














00120 


0078 


Entry address of EAC 


00087 


0057 


Timer 9 subprogram number 












(1-32) 


00121 


0079 


Address of queue table 


00088 


0058 


Timer 9 on-off branch 


00122 


007A 


Maximum number of queue 
entries 


00089 


0059 


Timer-sharing timer 














00123 


007B 


Number of interrupt levels 


00090 


005A 


Exit address of I/O routines 






used (NULEV) 


00091 


005B 


Time-sharing timer busy 
indicator 


00124 


007C 


Entry address of disk 
routine 


00092 


005.C 


Programmed clock 


00125 


007D 


Entry address of list printer 
routine 


00093 


005D 


Programmed clock 














00126 


007E 


Entry address of system printer 


00094 


005E 


Branch to ITC exit routine 






routine 


00095 


005F 


Constant: -50 


00127 


00 7F 


Constant: /0600 


00096 


0060 


Constant: 3 


00128 


0080 


Constant: /0500 


00097 


0061 


PAUSE routine indicator 
specifying that interrupt has 


00129 


0081 


Constant: /F800 






occurred 


00130 


0082 


Constant: /0FF8 


00098 


0062 


Entry address of I/O test 
routine (IOTST) 


00131 


0083 


Constant: /00FF 








00132 


0084 


Constant: /8000 


00099 


0063 


1 = CARDN is in skeleton 














00133 


O085 


Constant: /0001 


00100 


0064 


Mask routine indicator: 












1 = out-of-core interrupts are 


00134 


0086 


Constant: /0002 






masked 














00135 


0087 


Constant: /0004 


00101 


0065 


Address of CALL INTEX 












processing routines 


00136 


0088 


Constant: /0005 


00102 


0066 


Beginning address of variable 
core 


00137 


0089 


Constant: /0007 








00138 


008A 


Constant: /0FFF 


00103 


0067 


TV location (XR3) 














00139 


008B 


Constant: /2000 


00104 


0068 


Interrupt level work area 












address (XR3) 


00140 


008C 


Constant: /0180 
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Address 


Description of Use 


Address 


Description of Use 


Decimal 


Hexadecimal 


Decimal 


Hexadecimal 


00141 


008 D 


Constant: 320 


00171 


00AB 


TSC indicator: = Call 
nonprocess monitor; 


00142 


008 E 


CALL LINK entry address 






1 = Call program from 
save area 


00143 


008F 


Address of EAC disk down 












message 


00172 


00AC 


Entry point to TVSAV 








00173 


00AD 


Entry point to TVEXT 


00144 


0090 


Constant: 321 














00174 


00AE 


Ending address of skeleton 


00145 


0091 


Address of first word after 
ETV 






I/O area 








00175 


00AF 


Address of 1053 logical 


00146 


0092 


Constant: /FF00 






table 


00147 


0093 


Constant: /F000 


00176 


00B0 


Address of message buffer 
table 


00148 


0094 


Constant: /FF87 














00177 


00B1 


Not used in an on-line system. 


00149 


0095 


Keyboard request indicator 






Under TASK, this is the start- 
ing address of the TASK core 


00150 


0096 


Program timer busy indicator 






dump program . 


00151 


0097 


Not used 


00178 


00B2 


Address of EAC constants 


00152 


0098 


Entry address to set timers 
busy 


00179 


00B3 


Entry address of nonprocess 
monitor read-in routine 


00153 


0099 


Entry point to EAC printer 
routine 


00180 


00B4 


Non-disk FIO save area 
address 


00154 


009A 


Entry point to OZSAV 


00181 


00B5 


Disk FIO save area address 


00155 


009B 


Entry point to QZEXT 


00182 


00 B6 


Entry point to EXIT 
subroutine 












00156 


009C 


Starting address of skeleton 
COMMON 


00183 


00B7 


Address of message buffer 
disk address 


00157 


009D 


Length of skeleton 
COMMON 


00184 


00B8 


Entry for DISKN from ETV 


00158 


009E 


Address of message buffer 


00185 


00B9 


Entry for TYPEN from ETV 






drive code 


00186 


00BA 


Entry for PRNTN from ETV 


00159 


009F 


I/O Error routine entry/ 
return address 


00187 


00BB 


Address of disk drive table 


00160 


00A0 


Program interrupt IOCC 
(0-13) 


00188 


00BC 


Address of logical drive 
device table 


00161 


00A1 


IOCC control word 


00189 


00BD 


Address of logical drive 1 
device table 


00162 


00A2 


Program interrupt IOCC 
(14-23) 


00190 


00BE 


Address of logical drive 2 
device table 


00163 


00A3 


IOCC control word 


00191 


00BF 


Address of physical drive 
device table 


00164 


00A4 


TASK nonprocess monitor abort 












indicator 


00192 


ooco 


Address of physical drive 1 
device table 


00165 


00A5 


EAC printer type code: 












0= 1053, 1 = 1443 


00193 


00C1 


Address of physical drive 2 
device table 


00166 


00A6 


List printer type code: 












0= 1053, 1 = 1443 


00194 


00C2 


Address of save area for 
unformatted FIO 


00167 


00A7 


System printer type code: 












0= 1053, 1 = 1443 


00195 


00C3 


Address of inskel ETV 


00168 


00A8 


Core size minus 1 


00196 


00C4 


Address of variable ETV 


00169 


00A9 


Address of 1442 entry in 
interrupt branch table 


00197 


00C5 


Special save indicator 








00198 


00C6 


User time-sharing (TISHA) 


00170 


OOAA 


Address of FORTRAN I/O 
table 






for CALL VIAQ when Queue 
is empty. 
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INDEX 



Absolute loader function 13 

TASK 187 

operation 188 
Absolute programs, sector break 128-130 
A and B timers 43-45 
ADC 191 

Address protection 185 
AIPTN subroutine 75 
AIRN subroutine 75 
AISQN subroutine 75 
Analog 

input functions 206 

input log listing 264-266 

multiplexer 191 

process I/O 191 

to -digital converter (ADC) 191 
Analog input basic (AIB) 137 
Analog input basic with comparator (AIBC) 137 
Analog input extended (AIE) 137 
Analog input extended with comparator (AIEC) 137 
Arithmetic and functional subroutines 10 
Assemble and execute nonprocess program 80-81 
Assembler 

ASM 11, 74, 122 

Call subroutines 181 

Control cards 79, 181 

implicit and explicit subroutines 169-170 

TSX calls 294-296 

Writing assembler language subroutines 181-184 
Assembling programs 80-82 
Assignment card restrictions 128 
♦ASSIGNMENT cards, function of 126-12J7 
Assignment table (AT) and loader 122 
Automatic mode, loader 188 
Automatic time -sharing (V1AQ) 49 

BACK 19-20 

Back-up capability, EAC 60 

Bootstrap for nonprocess supervisor 122 

Buffering of messages 119-121 

Buffer size, disk 120 

Building TSX operating tables 124-125 

BZ1-8 118 

Calculating core size 
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RETURN 33 


SAVMK 
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UNQ 23 

VIAQ 25, 49 
Call COUNT subroutines 147 
CALL subroutines 186 

assembler 181 

timer 1 65 

type 179 

user programs 187 
Calling process core load externally 
CAR 68 

Card reproducing 107 
CARDN subroutine 75, 166 

SUP 72 
*CCEND and dump 98 
CDINS 118 
CDW example 163 
C.E. interrupt 199 
C.E. level interrupt switch 70 
CHAIN 18 

Chaining technique 18-20 
Channel address register (CAR) 68 
Characteristics of interrupts 29 
Checkpoint operation 197 
CLEAR subroutine 41 
Clock 46 

real time 45-46 

real time setup (SETCL) 45 
Closed loop control 199 
Coding, reentrant 6 
Cold start 

cards 121 

CLST 9, 122, 151 

EAC 70 

logical number 109 
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off-line 111 

on-line 107 

program 9, 122 
COLDS routines and time-sharing 198 
Combination core load 215 
COMMON 

COMM 179 

area 6-7, 76 

area, INSKEL/ interrupt/normal 6-7 

communications area and NPM 71 

INSKEL 75 

LOCAL 99 
Communications area 

Disk 72 

nonprocess 72 
Communications linkages 101-102 
Compile and execute nonprocess programs 82 
Compile and store nonprocess programs 81-82 
Compiler, FORTRAN 11, 74 
Compiling programs 80-82 
Components, system 7-11 
COMSZ equate card 119, 161 
Configuration, disk system 147-161 
Console 200 

interrupt 111-112 

interrupt logic 113 
CONTA 118 
Contact sense 192 
Continue, EAC 71 
Control 

Direct Digital (DDC) 

Error Alert (EAC) 14 

Interval Timer (ITC) 

Master Interrupt (MIC) 

Multi-level 16 

Program Sequence (PSC) 

Programs 8-9 

Record analyzer, monitor 72 

Record Entry Table (CRENT) 175 

Time -sharing (TSC) 14 
Control cards 

Assembler 181 

*INCLD 173 

sequence of system loader 124 
Control cards, Monitor 77 

assembler 79 

DUP 78 

FORTRAN 78 

loader 77 

nonprocess monitor 77-79 

simulator 79 
Conversion subroutines 10, 76 
Copying process data, example of 99 
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contents, Fixed Area 297-299 

Dump, EAC 59 

exchange method, time-sharing- 14 

image formats 128 

map, skeleton 178 
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off-line requirements 165 

on-line (non time-sharing) requirements 165 

on-line (time-sharing) requirements 164 

storage factors 164 

variable (VCORE) 8 
Core load 

area 82, 85, 101, 150, 160 

area, delete 84-85 

area, file -moving 99 

area, loading 98 

builder (CLB) 9, 122 

combination 84 

concept of a 5 

deleting and replacing 82-88 

file area, reserving 97-98 

interrupt 84 

link 84 

linkages, changing 86 

mainline and interrupt 31, 84 

mainline queue tables 132 

nonprocess 84 

queue table 14 

rebuild 176 
Core Load Builder (CLB) 122 
Core size 

calculating skeleton 172 

skeleton 164-171 

system director 132-133 
COUNT subroutine 46, 147, 166, 197 

NITP1/NITP2 147 
Counters, update EAC error 60 
CRENT 1 75 
Cycle steal 192 

DAC 192 
DACS 9, 191 

analog process I/O 191-192 

applications 193 

digital process I/O 192 
DAOP subroutine 75 
Data 

channels and masking 29 

entry dials 202 

format 187 

manipulation 97-99 

sheets, program 210-220 
Data acquisition and process control system (DACS) 
Data files 84 

deleting/replacing 82-88 

dump from core load 98 
DCOM 72, 122 

entries 125 

SUP 72 
DDC 195, 199 
Debugging 

core loads 87 

process programs 112 

simulator 87-96 

system 203 
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*DEDIT control card 127 

parameters 127 
♦DEFINE CONFG 151-156,164 

control card 151 
♦DEFINE PAKDK (DUP) 150 

operation 107 
♦DEFINE REMOV 150 
♦DELETE 82 
Delete mainline 84-85 

combination core loads 84-85 

interrupt core loads 84-85 
Deleting 

core loads 82-88 

data files 82-88 

programs 82-88 
Deleting from queue (UNQ) 23 
Dependence, time 15 
Design considerations, system 115-143 
Devices with no interrupt 127 
DICMP subroutine 75 
DIEXP subroutine 76 
Digital 

control, direct 195 

data display 202 

input switches 202 

process I/O 192 

to -Analog Converter (DAC) 192 
DINP subroutine 76 
Direct digital control (DDC) 195,199 
Director, system 8, 130-143 
Disk 

areas, assignment 160 

buffer size 120 

cartridge initialization 157-159 

configuration examples 154-156 

drives and logical number 109 

edit phase 128 

file organization, example 205 

hardware 148 

layout 149-151 

layout editing 125 

map for system programs 122 

organization 148-151 

sector distribut ion 159 

storage 159-161 

system configuration 147-161 

units conversion 148 

utility program (DUP) 10-11,74,122 
Disk Communications Area (DCOM) 72, 122 
DISKN subroutine 3, 75, 166 

EDP relation 70 
DLABL 

disk initialization 158 

DWRAD, TDWA 159 

functions of 159 

LET/FLET 158 
DPART routine 31 
DP and process I/O subroutines 10, 166 



Dummy interrupt core load 111 
Dump 

core storage 59 

EAC 134 

from relocatable area 98-99 

from user area 98-99 

LET/FLET table 107 
♦DUMP and ♦DUMPDATA 98 

function of DUP 59 
Dumping from core load 98 
♦DUMPLET 

LET/FLET 107 

listing 235, 267, 278 

use of 84 
DUP 10, 11, 74, 122 

control cards 78 

facilities 1 1 

ICLT 175 

sectors on system cartridge 74 
// DUP control record 74 
DWRAD 

disk initialization 157 

functions of 157-158 

TDWA, DLABL comparison 159 

EAC 14, 59-71 

dump 1 34 

error action 68-71 

error codes 61 

features of 59-60 

on-line recovery 62-67 

printer 199 

program breakdown 60-68 

system director 131 
EBPA 102 
EBT and ETV 163 

LIBF 164 
ECO 192 
ECPT2 118 
Edit phase, disk 128 
Editing and LET/FLET, DCOM 125 
Editing disk layout 125 
EDP 151 

DISKN relation 70 
EDPM 150 

Electronic contact operate (ECO) 192 
//END card and SUP 72 
//END OF ALL JOBS card 25, 26 

VLA.Q 49 
ENDTS 48-49 
Entry to MIC 33-37 
Entry to SUP 73 
EPSV 150 
Equate cards and system director 131 

TASK 117-119 
Error 

action, EAC 68-71 

alert Control (EAC) 14, 59-71 
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codes, EAC 61 

condition, servicing 4 

counters, updating 60 

decision subroutines 68, 70 

disk program (EDP) 68 

Dump Area (EDPM) 150 

procedures, I/O 198 

sample 197 

programs 123 

programs (EDP) 151 

save area (EPSV) 150 

subroutine, unused 60 
ETV 162, 175 

EBT 163 

example 163 

LIBF 162 

PNT 163 
Event sequence 15 
Examples 

Nonprocess Monitor 79-114 
Execute highest priority core load (VIAQ) 25 
Execute nonprocess 

from core load area 82 

from temporary area 80-81 
Executive programs, functions of 12-114 
EXIT 49 
Exit 

EAC 68 

from MIC 37-39 

procedures from interrupt 33 

through interrupt level 71 
Explicit subroutines 166 
External calling of process core load 106 
External interrupt level 134 

FADD subroutine 143 

Features, EAC 59-60 

File area, reserving core load 97-98 

File protection 149 

*FILES control record 97 

Fixed area 161 

core contents 297-299 

IOCC 145 
FLET 82 

definition of 122 

entries 109 

table dump 107 

tables 122 
FLIP 10, 101 
FOR 11, 74, 123 
FORTRAN 

compiler (FOR) 11, 74, 123 

control cards 78 

DP I/O 166 

files, sample use 206 

implicit and explicit subroutines 167-168 

I/O save area 150, 160 

I/O subroutines 10 

I/O table, example 163 

sectors on system cartridge 74 



Function buttons 202 
Functional simulate -class subroutines 76 
Functions of executive programs 12-114 
Functions of system director 133-135 

General TSX subroutines 76 
Guard interrupt core load 111 

Handling of interrupts 27-41 
Hardware timers 43-45 
HOLL 102 
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code example 126 
code and I/O interrupt 182 
codes and *ASSIGNMENT cards 
codes and LUN 127 
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144 
176 



177 
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IBT 39 

example 163 
ICI 176, 179 
ICLT 14, 35, 84 

core load rebuild 

1ST 31 

map 1 79 

map interpretation 

NIL card and DUP 

PISW 143 
ICNT indicator in INSKEL COMMON 50 
ILSW 30, 126 

assignment 136 

bits and *ASSIGNMENT cards 126 

interrupt level 35 

PISW 143 
Implementation of LOCALs 99-102 
Implicit subroutines 166 
*INCLD control card 

core load rebuild 176 

use of 173 
In-core, EAC 68 
In-core interrupt (ICI) 176, 179 
Index registers and MIC 34 

Initiating nonprocess monitor operation 109-110 
Initiating time -sharing 48-50 
Insert into queue (QUEUE) 20 
INSK 179 
INSKEL 

call COUNT 210, 211, 213, 224-225, 228-229, 234 

call TIMER 210, 227 

COMMON 4, 50, 179, 203 

interrupt subroutines 210-214, 225, 228, 229, 233 
INSV 150 

Internal interrupt level 1 34 
Internal machine error, causes 68 
Interprogram communication 7 
Interrupt 7, 27-29 

action of MIC 36 

assignment restrictions 137 

Branch Table (IBT) 35, 39 

characteristics of 29 

Control, Master (MIC) 13, 33-39 
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core load 31-32,215-218,257-264 

core load, delete 84-85 
. Core Load Table (ICLT) 14 

exit (INTEX) 33 

handling of 4, 27-41 

initiation of 15-16 

I/O 27, 39 

levels 28, 135, 185 

levels exit 71 

levels masking 29 

levels, out-of-core 146 

level and PISW group number 144 

level, sensed by ILSW 35 

masking 39-40, 186 

per level 137 

periodic 14 

philosophy 7, 27-29 

priority 1 35 

procedures 33 

programs, Mainline/ Skeleton 30 

*RCORD card 42 

recording 41 -42 

restrictions 40 

routine exit (DPART) 33 

Save Area (INSV) 37, 150 

servicing subroutines (ISS) 30, 41, 42, 144 

Status Table (1ST) 31,35 

structure 7 

use of console 111-112 
Interval timer control (ITC) 14, 133 
Interval timers, use of 42-47 
INTEX 30 
INTKY 118 
Input/Output (I/O) 

analog process 191 

associated conversion subroutines 166 

device subroutines 30 

digital process 192 

error procedures 198 

interrupts 27, 39 

simulator subroutines 75 

skeleton 12-13, 161 

subroutines 182 

unit table (IOUT) and loader 122 

unit table (IOUT) and LUN 125 
IOCC locations in Fixed Area 145 
ISS subroutine 144, 176 

example of 183-184 

I/O subroutine 182 
1ST 31, 35 

ICLT 31 
ITC 14 

functions of 42 

system director 131 
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Job deck 79-80 

JTEST indicator in INSKEL COMMON 46 

Language translators 11 

LD(I) subroutine and timers 44,45 

LET 74, 80, 82 

entries 109 

/FLET and DLABL 158, 159 

/FLET entries 109, 125 

table dump 107 

tables 122 

use of 81-82 
Level 

interrupt 1 34 

interrupts per 137 

interrupt switch 70 
LEVEL subroutine 10, 49, 145 
Level work areas 14, 137, 185 

fixed section 139 

layout 1 38 

overlay section 138, 140-143 
LIBF 101, 179 

FLIP, LPT, VTV 101 

subroutines 182, 186 

user programs 187 
Library Function Subroutines (LIBF) 
Library, subroutine 123 
LINK 49 

Linkages, changing core load 86 
Linkages, communication 101-102 
LINS parameter 165 
Loader 

control cards 77 

operation 123-125 

system 9, 122 
Loading 

into core load area 98 

into NPWS 99 

nonprocess system 123-124 
Load Monitor function 13 
LOCAL 

calls 101 

COMMON 99 

definition of 5 

implementation of 99-102 

restrictions on use of 102 

subprograms 5 

uses of 102-103 
Location Equivalence Table (LET) 74, 80-82, 107, 109, 110, 122, 

125, 158-159 
Log description, sample program 206 
Logical number and disk drives 109 
LPT (Local Parameter Table) 101 
LSKEL parameter 164 
LSKEL and VCORE 164 
LUN 

IAC codes 127 

IOUT 125 
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maximum LUN on TSX 126 
number assignment change 128 
numbers and ^ASSIGNMENT card 
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Machine features 1-2 

Machine Timers: A, B, C 14 

MAGT subroutine 75 

Mainline Core Load 31, 213, 217 

debugging with 112 

listing of 238-247, 250-257 

queue table 14, 132 
Mainline process, delete 84-85 
Mainline segmentation 22 
Manipulation, data 97-99 
Manual mode, loader 188 
MASK subroutine 10, 39 
Masking and data channels 29 
Masking interrupt levels 29 
Masking interrupts 39-40, 186 
Master Branch Table (MBT) 125 

Master Communications Area and Skeleton Common 175 
Master Communications Words (MCW) 175 
Master Interrupt Control (MIC) 13, 33-39, 131, 144, 185 
MBT (Master Branch Table) 175 
MBT and SKIBT 164 
MCW 175 
MESS 150 

MESS and DEFINE CONFG 153 
Message 

buffer (MESS) 150 

buffer area 160 

buffer size, change 128 

buffering 119-121 

unit size 119 
Method of operation, SUP 72-73 
MIC 13, 33-39, 185 

entry to 33-37 

exit from 37-39 

index registers 34 

interrupt action 36 

maximum number of serviced interrupts 39 

NB card 33 

sensing of ILSW/PISW 144 

system director 131 
Minimum system requirements 1-2 
Miscellaneous subroutines 10 
Modes of operation (of TSX) 3 
Monitor 

control cards 77 

control record analyzer 72 

Nonprocess (NPM) 71-114 

Operations 42, 59, 134 

Process 4 
Monitoring, Process 4 
Moving files in core load area 99 
Multi-drive TSX on-line system 156 
Mult i- interrupt priority 28-29 
Multi-level control 16 
Multi-level programming 7 



Multi-process control 17 

NIL cards and ICLT 175 
NIL labels 143 
NOBUF 118 
NOCYL 118 

Non-interrupt devices 127 
Nonprocess 

Communications Area 72 

compile, store 80-82 

core load 84, 85, 219-220, 268-277 

core load listing 268-277 

execute 80-82 

Monitor (NPM) 25, 71-114 

Monitor control cards 77-79 

Monitor debugging 112 

Monitor examples 79-114 

Monitor initiating operation 109-110 

Monitor utility functions 107-114 

program debugging 87 

programs 80 

save area (NPSV) 150 

supervisor (SUP) 9, 72-73, 122 

supervisor bootstrap 122 

system 121-130 

system loading 123-124 

working storage (NPWS) 98-99 
*NONPROCESS PROGRAM control card 81 
Non-synchronous periodic scheduling 26 
NPM 71 

operation initiation 110 

SHARE, VTAQ 110 
NPSV 150 
NPWS 98, 150, 159 
NULEV 135 

ICLL1/ICLL2 cards 146 
NUMBE 118 
Number of interrupt levels 135 

Object core size, change 128 
Off-line 

cold start 111 

execution of user program 187 

mode 3 

skeleton rebuild 1 75 

SYSGEN 116 
OG/SC 194 
ONLIN 119 
On-line 

core load rebuilding 85-86 

EAC error codes 61 

mode 3 

output, sample system 208 

process output listing, sample system 280-290 

SYSGEN 115 

system, multi-drive 156 
Operations Monitor 42 , 59 , 1 34 

time interval 59 
Operator Guide Control 200 
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Operator Guide/ Supervisory Control OG/SC 194 

OPMON 59 

Out-of-co>re interrupt levels 146 

Overview of TSX system 1-11 

Packing user area 107 

PAPTN subroutine 75 

Parameters, *DEDIT control card 127 

Patch Area (PTCH) 162,179 

Periodic program scheduler 197 

Periodic scheduling, non -synchronous 26 

Phase, Disk Edit 128 

Philosophy, interrupt 27-29 

Physical disk and logical number 109 

PISW 30 

assignment, combination of 145 

ILSW 143 

indicators 143 

restrictions of use 144-146 

sensing of interrupt 35 
PLOTX subroutine 75 
PNT 84 „ 162 

ETV 163 
Preparing dummy interrupt core loads 111 
PRICS 118, 166 

Primary (Interrupt) Time Base 44, 133 
Printers, 1053/1816 14 
Priority 

assignments 29 

interrupt 1 35 

interrupt levels 28 

multi- interrupt 28-29 

techniques 20-25 
PRNTN subroutine 3, 75, 166 
Process 

control 191 

core load 86, 106 

interrupt 32, 92, 144, 145 

Interrupt Status Word (PISW) 143 

Monitoring 4 

program, definition of 80 

program debugging 87 

Save Area (PRSV) 151 

Simulator 200-202 

work storage (PRWS) 150 
Processing programs 9-11 
Program 

breakdown, EAC 60-68 

cold start 9 

compiling 80-82 

control 8-9 

data sheets 210-220 

disk utility (DUP) 10, 11, 74 

dump from core load area 98 

interrupt, included with mainline 30 

name table (PNT) 84 

process and nonprocess 80 

processing 9-11 



scheduler, periodic 197 

scheduling 14-26 

sequence 15 

Sequence Control (PSC) 14, 17-18 

service 9-10 

simulator 75-77 

skeleton interrupt 30 

user written 4 
Programmed interrupts 145 
Programmed timers 46 
Programming, multi-level 7 

reentrant coding 185-187 

techniques 181-290 
Protecting addresses 185 
PRSV 151 
PRWS 150 
PSC 14, 17-18, 162 

System Director 131 
PTCH 1 79 

QIFON 23-25 

use of 24 
Queue 

core load on indicator (QIFON) 23 

definition of 14 

subroutine 20-23 

table, core load 14 

table, mainline core load 132 
Queueing statements, use of 21 
Queueing techniques 20-25 

Read-and-expand function 206 
Real-time 

clock 44, 45-46 

clock se^tup (SETCL) 46 

subroutines 10 

systems 191 
Rebuilding FLET 128 
Rebuilding process core loads 87 
*RCORD and LOCALs 103 
*RCORD card and interrupts 42 
Recording interrupts 41-42 
Recovery procedures, EAC 62-67 
Recursive entry to programs 14 
Reentrant 

coding 6, 185-187 

control 185 

program, MIC 13 

subroutine work level requirements 140-142 
Reload, EAC 71 
Relocatable 

Area 81-82, 98-99 

program area 159 

program, replace 85 

programs 82-88 

subroutine area 107 
Relocation, TSX components 175 
Repacking relocatable subroutine area 107 
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Replacing relocatable programs, coreloads, and data files 82- 

Reproducing cards 107 

Reserving core load file area 97-98 

RESMK 39 

Response time 165 

mainline interrupt 7 
Restrictions 

assignment card 128 

interrupt assignment 137 

LOCAL 101 

Simulator 77 
Restart, EAC 71 
RETURN 33 

Return saved mainline (CALL BACK) 19 
RPQ devices 30 
Rules governing interrupts 42 

Sample system, TSX 195 
SAVMK 39 
Scheduling 

periodic, non-synchronous 26 

program 14-26 

system 17 
Secondary Time Base (CBASE) 133,134 
Sector break records for Absolute Programs 128-130 
Sector, definition of 148 

numbering 148 
Segmenting mainlines 22 
Selectable time-sharing (SHARE) 48 
Selective replacement of PNT 86 
*SEQCH function 86 
Sequence checking 18 

Sequence Control, Program (PSC) 14, 17-18 
Sequence technique 18-20 
Service programs 9-10 
Servicing error conditions 4 

interrupts 41 

subroutines 30-32 
SETCL subroutine 45 

Setpoint station movement indicators 202 
SFIO 175 

SHARE and NPM initiation 110 
SHARE subroutine 48 
//SIM control record 75 
SIM subroutine 123 
Simulator (SIM) 11, 123 

control cards 79 

core load debugging 87 

debugging 75, 87-96 

functional simulate subroutines 76 

hardware requirements 75 

program 75 

restrictions 77 

TASK 87 

termination subroutines 76 
*SIMULCI and SUP 72 
*SIMULCI control record 75 
SKA 175 
SKEL 151 
SKEL core map 236-238 
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Area (SKEL) 151 

build function 13 

build prerequisites 173 

build process 173-180 

build supervisor phase (SKA) 175 

builder 9, 13, 123, 161, 173-180 

COMMON 161 

core map interpretation 178 

core size 164-171, 172 

executive, role of 3-4 

FORTRAN I/O table (SFIO) 175 

interrupt branch table (SKIBT) 164 

interrupt programs 30 

I/O 3, 12-13, 161 

rebuild, on-line 175 

rebuilt core map 178 

subroutine map (SK-SUB) 125 

subroutine name table 175 

subroutines 125, 164 

Supervisor 72 

table building 175 
SKIBT and MBT 164 
SKSUB 125, 175 
Special Save Area (SPSV) 151 
SPECL subroutine 18 
SPSV 151 

*START SIMULATION control card 87 
Statements not used in error subroutines 60 
*STORECI and SUP 72 
*STOREDATA function 84 
*STOREMD operation 85 
Subprograms, LOCAL 5 
Subroutines 

arithmetic 10, 76 

Assembler implicit and explicit 169-170 

assignment, interrupt 7 

conversion 10, 76 

DP and process I/O 10 

FORTRAN implicit and explicit 167-168 

FORTRAN I/O 10 

function 10 

general TSX 76 

in skeleton 164 

I/O device 30 

library 9, 10, 123 

miscellaneous 10 

servicing 30-32 

simulator 75-76 

user-error 59-60 

user-written 76, 162 
SUP 72, 122 

functions 72 

sectors on system cartridge 72 
Supervisor, Nonprocess 9, 72-73 

skeleton 72 
SYSGEN 115-117 

listing, sample system 221-279 

overview 116 

steps, sample system 206-208 
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TASK 116, 122 
System 

area allocation 153 

components 7-11 

concepts of TSX 3-7 

configuration versatility 5 

design 196 

design considerations 115-143 

documentation 203 

flowchart, sample system 203-204 

requirements, minimum 1 
System director 4, 8, 13-71, 123, 130-143, 162 

equate cards 131 

functions of 133-135 

size of 131-133 

work areas 131 
System loader 9, 122, 123-125, 221-223 

listing, sample system 221-223 

operation 123-125 
System skeleton 12, 160, 161-180 

area 160 

constitution of 161-1 64 

layout at build time 1 74 

modify on-line 175 

rebuilding of 175 

Tables, LET/FLET 122 

Table of variables, sample system 205 

TASK (Temporary Assembled Skeleton) 8, 112-13, 115, 123 

absolute loader 187 

absolute program, example 189-190 

conversion routines 13 

core size calculation 120-121 

director 1 3 

disk write address (TDWA) 157 

EBPRT 13 

equate cards 117-119 

Error Alert Control (TEAC) 13 

functions 8 

HOLEB 13 

initialization 1 75 

master interrupt control (TMIC) 13 

program set 13 

simulator 87 

Skeleton Builder 161 

System Skeleton 12 

utilities 1 3 
TBASE 49 
TDWA 

DWRAD, DLABL comparison 159 

use of 149, 157 
TEAC 13 
Techniques 

sequence or chaining 18-20 

queueing and priority 20-25 
TEMP 82 

Temporary area 80-81 > 

Termination-class (simulator) subroutines 76 



Time Bases 

interrupt 45 

primary 45, 133 

secondary 1 34 

timers, hardware 43-45 
Time dependence 15 
Timer 45 

A, B, and C 14, 43-45 
1 comparison of 48 

core location of 43 

interval control program 14 

programmed 46 

time bases 43 

use of 42-47 
Time -shared NPM operation 114 
Time -sharing 4, 134 

Automatic Method 49 

COLDS, sample system 198 

control (TSC) 14 

initiating 48-50 

optimum 200 

selectable 48 

use of 47-50 
TMIC 13 
Transducers 191 
Translators, language 11 
TRPRT subroutine 10 
TSC 14, 25 

system director 131 
TSX 

CALL statements 292-293 

component relocation 175 

operating tables 124 

sample system 195 

subroutine library 9-10 

system composition and capabilities 
TYPEN subroutine 3, 75 

/WRTYN 166 
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UNMK 39 

UNO 23 

Update error counters 60 

User 

area 85, 98-99, 107 

disk area 149 

error subroutine 59-60 

programs under TASK absolute loader 187-190 

subroutine listing 230-233, 247-250 

subroutines 162, 211-213, 230-233, 247-250 

writing assembler language subroutines 181 

written programs 4 
Utilities, stand-alone 123 

Utility functions, nonprocess monitor (general) 107-114 
Utility Program, Disk (DUP) 74 



Variable core 8 

Variable Transfer Vector (VTV) 

Versatility, System 5 
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use of 25 
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Work level 
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WRYTN subroutine 75 
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